home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / awksrc.zip / AWKTAB.C < prev    next >
C/C++ Source or Header  |  1993-09-28  |  106KB  |  3,238 lines
  1.  
  2. /*  A Bison parser, made from awk.y  */
  3.  
  4. #define YYBISON 1  /* Identify Bison output.  */
  5.  
  6. #define    FUNC_CALL    258
  7. #define    NAME    259
  8. #define    REGEXP    260
  9. #define    ERROR    261
  10. #define    YNUMBER    262
  11. #define    YSTRING    263
  12. #define    RELOP    264
  13. #define    APPEND_OP    265
  14. #define    ASSIGNOP    266
  15. #define    MATCHOP    267
  16. #define    NEWLINE    268
  17. #define    CONCAT_OP    269
  18. #define    LEX_BEGIN    270
  19. #define    LEX_END    271
  20. #define    LEX_IF    272
  21. #define    LEX_ELSE    273
  22. #define    LEX_RETURN    274
  23. #define    LEX_DELETE    275
  24. #define    LEX_WHILE    276
  25. #define    LEX_DO    277
  26. #define    LEX_FOR    278
  27. #define    LEX_BREAK    279
  28. #define    LEX_CONTINUE    280
  29. #define    LEX_PRINT    281
  30. #define    LEX_PRINTF    282
  31. #define    LEX_NEXT    283
  32. #define    LEX_EXIT    284
  33. #define    LEX_FUNCTION    285
  34. #define    LEX_GETLINE    286
  35. #define    LEX_IN    287
  36. #define    LEX_AND    288
  37. #define    LEX_OR    289
  38. #define    INCREMENT    290
  39. #define    DECREMENT    291
  40. #define    LEX_BUILTIN    292
  41. #define    LEX_LENGTH    293
  42. #define    UNARY    294
  43.  
  44. #line 26 "awk.y"
  45.  
  46. #ifdef DEBUG
  47. #define YYDEBUG 12
  48. #endif
  49.  
  50. #define    YYMAXDEPTH    300
  51. #define    YYSSIZE    YYMAXDEPTH
  52.  
  53. #include "awk.h"
  54.  
  55. static void yyerror (); /* va_alist */
  56. static char *get_src_buf P((void));
  57. static int yylex P((void));
  58. static NODE *node_common P((NODETYPE op));
  59. static NODE *snode P((NODE *subn, NODETYPE op, int sindex));
  60. static NODE *mkrangenode P((NODE *cpair));
  61. static NODE *make_for_loop P((NODE *init, NODE *cond, NODE *incr));
  62. static NODE *append_right P((NODE *list, NODE *new));
  63. static void func_install P((NODE *params, NODE *def));
  64. static void pop_var P((NODE *np, int freeit));
  65. static void pop_params P((NODE *params));
  66. static NODE *make_param P((char *name));
  67. static NODE *mk_rexp P((NODE *exp));
  68.  
  69. static int want_assign;        /* lexical scanning kludge */
  70. static int want_regexp;        /* lexical scanning kludge */
  71. static int can_return;        /* lexical scanning kludge */
  72. static int io_allowed = 1;    /* lexical scanning kludge */
  73. static char *lexptr;        /* pointer to next char during parsing */
  74. static char *lexend;
  75. static char *lexptr_begin;    /* keep track of where we were for error msgs */
  76. static char *lexeme;        /* beginning of lexeme for debugging */
  77. static char *thisline = NULL;
  78. #define YYDEBUG_LEXER_TEXT (lexeme)
  79. static int param_counter;
  80. static char *tokstart = NULL;
  81. static char *token = NULL;
  82. static char *tokend;
  83.  
  84. NODE *variables[HASHSIZE];
  85.  
  86. extern char *source;
  87. extern int sourceline;
  88. extern char *cmdline_src;
  89. extern char **srcfiles;
  90. extern int errcount;
  91. extern NODE *begin_block;
  92. extern NODE *end_block;
  93.  
  94. #line 76 "awk.y"
  95. typedef union {
  96.     long lval;
  97.     AWKNUM fval;
  98.     NODE *nodeval;
  99.     NODETYPE nodetypeval;
  100.     char *sval;
  101.     NODE *(*ptrval)();
  102. } YYSTYPE;
  103.  
  104. #ifndef YYLTYPE
  105. typedef
  106.   struct yyltype
  107.     {
  108.       int timestamp;
  109.       int first_line;
  110.       int first_column;
  111.       int last_line;
  112.       int last_column;
  113.       char *text;
  114.    }
  115.   yyltype;
  116.  
  117. #define YYLTYPE yyltype
  118. #endif
  119.  
  120. #include <stdio.h>
  121.  
  122. #ifndef __STDC__
  123. #define const
  124. #endif
  125.  
  126.  
  127.  
  128. #define    YYFINAL        308
  129. #define    YYFLAG        -32768
  130. #define    YYNTBASE    61
  131.  
  132. #define YYTRANSLATE(x) ((unsigned)(x) <= 294 ? yytranslate[x] : 108)
  133.  
  134. static const char yytranslate[] = {     0,
  135.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  136.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  137.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  138.      2,     2,    49,     2,     2,    52,    48,     2,     2,    53,
  139.     54,    46,    44,    60,    45,     2,    47,     2,     2,     2,
  140.      2,     2,     2,     2,     2,     2,     2,    40,    59,    41,
  141.      2,    42,    39,     2,     2,     2,     2,     2,     2,     2,
  142.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  143.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  144.     55,     2,    56,    51,     2,     2,     2,     2,     2,     2,
  145.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  146.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  147.      2,     2,    57,    43,    58,     2,     2,     2,     2,     2,
  148.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  149.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  151.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  153.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  154.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  155.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  156.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  157.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  158.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  159.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  160.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  161.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  162.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  163.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  164.     36,    37,    38,    50
  165. };
  166.  
  167. static const short yyprhs[] = {     0,
  168.      0,     4,     6,     9,    11,    14,    15,    19,    20,    24,
  169.     27,    30,    33,    35,    38,    41,    43,    45,    47,    49,
  170.     51,    52,    60,    65,    67,    71,    72,    77,    83,    88,
  171.     90,    93,    95,    98,   100,   103,   106,   109,   113,   115,
  172.    122,   131,   140,   151,   161,   164,   167,   174,   179,   183,
  173.    187,   188,   193,   200,   203,   205,   207,   214,   224,   226,
  174.    229,   230,   232,   233,   236,   237,   240,   243,   246,   247,
  175.    249,   251,   255,   257,   260,   264,   265,   267,   268,   270,
  176.    272,   276,   278,   281,   285,   289,   290,   292,   294,   298,
  177.    300,   303,   307,   311,   312,   317,   323,   328,   332,   336,
  178.    340,   344,   346,   349,   353,   357,   361,   365,   371,   373,
  179.    376,   377,   382,   386,   390,   394,   396,   399,   403,   407,
  180.    411,   417,   419,   422,   424,   426,   430,   434,   438,   442,
  181.    446,   450,   453,   457,   458,   464,   469,   471,   476,   479,
  182.    482,   484,   486,   489,   492,   495,   498,   500,   501,   503,
  183.    505,   510,   513,   516,   519,   522,   524,   525,   527,   529
  184. };
  185.  
  186. static const short yyrhs[] = {    82,
  187.     62,    82,     0,    63,     0,    62,    63,     0,     1,     0,
  188.     62,     1,     0,     0,    15,    64,    74,     0,     0,    16,
  189.     65,    74,     0,    15,    76,     0,    16,    76,     0,    71,
  190.     74,     0,    74,     0,    71,    76,     0,    68,    70,     0,
  191.      4,     0,     3,     0,    67,     0,    37,     0,    38,     0,
  192.      0,    30,    69,    66,    53,    85,   104,    82,     0,   102,
  193.     75,   103,   105,     0,    92,     0,    92,   107,    92,     0,
  194.      0,    47,    73,     5,    47,     0,   102,    75,   103,   105,
  195.     82,     0,   102,   103,   105,    82,     0,    77,     0,    75,
  196.     77,     0,     1,     0,    75,     1,     0,    81,     0,   106,
  197.     82,     0,   106,    82,     0,   102,   103,     0,   102,    75,
  198.    103,     0,    80,     0,    21,    53,    92,   104,    82,    77,
  199.      0,    22,    82,    77,    21,    53,    92,   104,    82,     0,
  200.     23,    53,     4,    32,     4,   104,    82,    77,     0,    23,
  201.     53,    87,   106,    92,   106,    87,   104,    82,    77,     0,
  202.     23,    53,    87,   106,   106,    87,   104,    82,    77,     0,
  203.     24,    76,     0,    25,    76,     0,    79,    53,    91,   104,
  204.     84,    76,     0,    79,    88,    84,    76,     0,    28,    87,
  205.     76,     0,    29,    87,    76,     0,     0,    19,    78,    87,
  206.     76,     0,    20,     4,    55,    91,    56,    76,     0,    92,
  207.     76,     0,    26,     0,    27,     0,    17,    53,    92,   104,
  208.     82,    77,     0,    17,    53,    92,   104,    82,    77,    18,
  209.     82,    77,     0,    13,     0,    81,    13,     0,     0,    81,
  210.      0,     0,    41,    96,     0,     0,    42,    92,     0,    10,
  211.     92,     0,    43,    92,     0,     0,    86,     0,     4,     0,
  212.     86,   107,     4,     0,     1,     0,    86,     1,     0,    86,
  213.    107,     1,     0,     0,    92,     0,     0,    89,     0,    94,
  214.      0,    89,   107,    94,     0,     1,     0,    89,     1,     0,
  215.     89,     1,    94,     0,    89,   107,     1,     0,     0,    91,
  216.      0,    92,     0,    91,   107,    92,     0,     1,     0,    91,
  217.      1,     0,    91,     1,    92,     0,    91,   107,     1,     0,
  218.      0,   101,    11,    93,    92,     0,    53,    91,   104,    32,
  219.      4,     0,    92,    43,    31,   100,     0,    31,   100,    83,
  220.      0,    92,    33,    92,     0,    92,    34,    92,     0,    92,
  221.     12,    92,     0,    72,     0,    49,    72,     0,    92,    32,
  222.      4,     0,    92,     9,    92,     0,    92,    41,    92,     0,
  223.     92,    42,    92,     0,    92,    39,    92,    40,    92,     0,
  224.     96,     0,    92,    92,     0,     0,   101,    11,    95,    94,
  225.      0,    94,    33,    94,     0,    94,    34,    94,     0,    31,
  226.    100,    83,     0,    72,     0,    49,    72,     0,    94,    12,
  227.     94,     0,    94,    32,     4,     0,    94,     9,    94,     0,
  228.     94,    39,    94,    40,    94,     0,    96,     0,    94,    94,
  229.      0,    97,     0,    99,     0,    96,    51,    96,     0,    96,
  230.     46,    96,     0,    96,    47,    96,     0,    96,    48,    96,
  231.      0,    96,    44,    96,     0,    96,    45,    96,     0,    49,
  232.     96,     0,    53,    92,   104,     0,     0,    37,    98,    53,
  233.     90,   104,     0,    38,    53,    90,   104,     0,    38,     0,
  234.      3,    53,    90,   104,     0,    35,   101,     0,    36,   101,
  235.      0,     7,     0,     8,     0,    45,    96,     0,    44,    96,
  236.      0,   101,    35,     0,   101,    36,     0,   101,     0,     0,
  237.    101,     0,     4,     0,     4,    55,    91,    56,     0,    52,
  238.     97,     0,    52,   101,     0,    57,    82,     0,    58,    82,
  239.      0,    54,     0,     0,   106,     0,    59,     0,    60,    82,
  240.      0
  241. };
  242.  
  243. #if YYDEBUG != 0
  244. static const short yyrline[] = { 0,
  245.    136,   141,   149,   165,   166,   170,   172,   186,   188,   202,
  246.    208,   214,   216,   218,   231,   240,   242,   244,   254,   255,
  247.    259,   263,   271,   280,   282,   291,   293,   309,   311,   316,
  248.    318,   326,   328,   333,   334,   338,   340,   342,   344,   346,
  249.    348,   350,   355,   359,   364,   367,   370,   372,   383,   396,
  250.    398,   400,   402,   404,   409,   411,   416,   421,   428,   430,
  251.    434,   435,   439,   441,   446,   448,   450,   452,   457,   459,
  252.    464,   466,   468,   470,   472,   478,   480,   485,   487,   492,
  253.    494,   500,   502,   504,   506,   511,   513,   518,   520,   526,
  254.    528,   530,   532,   537,   540,   545,   547,   552,   558,   560,
  255.    562,   568,   570,   578,   580,   586,   588,   590,   592,   594,
  256.    599,   602,   603,   605,   607,   613,   615,   617,   619,   621,
  257.    623,   625,   627,   632,   633,   635,   637,   639,   641,   643,
  258.    645,   650,   652,   654,   659,   661,   663,   671,   675,   677,
  259.    679,   681,   684,   691,   696,   698,   700,   704,   706,   711,
  260.    713,   721,   723,   728,   732,   736,   740,   741,   745,   748
  261. };
  262.  
  263. static const char * const yytname[] = {   "$","error","$illegal.","FUNC_CALL",
  264. "NAME","REGEXP","ERROR","YNUMBER","YSTRING","RELOP","APPEND_OP","ASSIGNOP","MATCHOP",
  265. "NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN",
  266. "LEX_DELETE","LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT",
  267. "LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION","LEX_GETLINE","LEX_IN","LEX_AND",
  268. "LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH","'?'","':'","'<'",
  269. "'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY","'^'","'$'","'('","')'",
  270. "'['","']'","'{'","'}'","';'","','","start","program","rule","@1","@2","func_name",
  271. "lex_builtin","function_prologue","@3","function_body","pattern","regexp","@4",
  272. "action","statements","statement_term","statement","@5","print","if_statement",
  273. "nls","opt_nls","input_redir","output_redir","opt_param_list","param_list","opt_exp",
  274. "opt_rexpression_list","rexpression_list","opt_expression_list","expression_list",
  275. "exp","@6","rexp","@7","simp_exp","non_post_simp_exp","@8","post_inc_dec_exp",
  276. "opt_variable","variable","l_brace","r_brace","r_paren","opt_semi","semi","comma",
  277. ""
  278. };
  279. #endif
  280.  
  281. static const short yyr1[] = {     0,
  282.     61,    62,    62,    62,    62,    64,    63,    65,    63,    63,
  283.     63,    63,    63,    63,    63,    66,    66,    66,    67,    67,
  284.     69,    68,    70,    71,    71,    73,    72,    74,    74,    75,
  285.     75,    75,    75,    76,    76,    77,    77,    77,    77,    77,
  286.     77,    77,    77,    77,    77,    77,    77,    77,    77,    77,
  287.     78,    77,    77,    77,    79,    79,    80,    80,    81,    81,
  288.     82,    82,    83,    83,    84,    84,    84,    84,    85,    85,
  289.     86,    86,    86,    86,    86,    87,    87,    88,    88,    89,
  290.     89,    89,    89,    89,    89,    90,    90,    91,    91,    91,
  291.     91,    91,    91,    93,    92,    92,    92,    92,    92,    92,
  292.     92,    92,    92,    92,    92,    92,    92,    92,    92,    92,
  293.     95,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  294.     94,    94,    94,    96,    96,    96,    96,    96,    96,    96,
  295.     96,    97,    97,    98,    97,    97,    97,    97,    97,    97,
  296.     97,    97,    97,    97,    99,    99,    99,   100,   100,   101,
  297.    101,   101,   101,   102,   103,   104,   105,   105,   106,   107
  298. };
  299.  
  300. static const short yyr2[] = {     0,
  301.      3,     1,     2,     1,     2,     0,     3,     0,     3,     2,
  302.      2,     2,     1,     2,     2,     1,     1,     1,     1,     1,
  303.      0,     7,     4,     1,     3,     0,     4,     5,     4,     1,
  304.      2,     1,     2,     1,     2,     2,     2,     3,     1,     6,
  305.      8,     8,    10,     9,     2,     2,     6,     4,     3,     3,
  306.      0,     4,     6,     2,     1,     1,     6,     9,     1,     2,
  307.      0,     1,     0,     2,     0,     2,     2,     2,     0,     1,
  308.      1,     3,     1,     2,     3,     0,     1,     0,     1,     1,
  309.      3,     1,     2,     3,     3,     0,     1,     1,     3,     1,
  310.      2,     3,     3,     0,     4,     5,     4,     3,     3,     3,
  311.      3,     1,     2,     3,     3,     3,     3,     5,     1,     2,
  312.      0,     4,     3,     3,     3,     1,     2,     3,     3,     3,
  313.      5,     1,     2,     1,     1,     3,     3,     3,     3,     3,
  314.      3,     2,     3,     0,     5,     4,     1,     4,     2,     2,
  315.      1,     1,     2,     2,     2,     2,     1,     0,     1,     1,
  316.      4,     2,     2,     2,     2,     1,     0,     1,     1,     2
  317. };
  318.  
  319. static const short yydefact[] = {    61,
  320.     59,    62,     0,    60,     4,     0,   150,   141,   142,     6,
  321.      8,    21,   148,     0,     0,   134,   137,     0,     0,    26,
  322.      0,     0,     0,    61,     0,     2,     0,     0,   102,    13,
  323.     24,   109,   124,   125,   147,     0,     0,     0,   159,     0,
  324.     10,    34,    61,     0,    11,     0,    63,   149,   139,   140,
  325.      0,     0,     0,     0,   144,   147,   143,     0,   103,   132,
  326.    152,   153,    90,     0,    88,   154,     5,     3,     1,    15,
  327.      0,    12,    14,     0,     0,     0,     0,     0,     0,     0,
  328.      0,     0,    61,   110,     0,     0,     0,     0,     0,     0,
  329.      0,    94,   145,   146,    32,     0,    51,     0,     0,    61,
  330.      0,     0,     0,    55,    56,    76,    76,    61,     0,    30,
  331.      0,    39,     0,     0,   157,    61,     0,     0,    88,     0,
  332.      7,    35,     9,    17,    16,    19,    20,     0,    18,     0,
  333.     98,     0,     0,     0,     0,    91,   156,     0,     0,   133,
  334.      0,   105,   101,   104,    99,   100,     0,   106,   107,   148,
  335.    160,    25,   130,   131,   127,   128,   129,   126,     0,     0,
  336.     76,     0,     0,     0,    76,    45,    46,     0,    77,     0,
  337.    155,    33,    31,   157,    82,   148,     0,     0,   116,    65,
  338.      0,    80,   122,   147,    54,     0,    37,    61,   158,    36,
  339.    138,   151,     0,    64,     0,   136,    27,    92,     0,    93,
  340.     89,   157,     0,    97,    95,     0,     0,     0,     0,     0,
  341.    150,     0,    49,    50,    61,    63,   117,     0,     0,     0,
  342.      0,     0,    83,     0,     0,     0,     0,     0,     0,     0,
  343.    123,   111,    38,    29,    73,    71,     0,     0,   135,    96,
  344.     23,   108,    61,    52,     0,    61,     0,     0,     0,    28,
  345.    115,    65,    67,    66,    68,    48,    84,    85,    81,   120,
  346.    118,   119,   113,   114,     0,     0,    61,    74,     0,     0,
  347.      0,     0,     0,     0,     0,    76,     0,     0,   112,    22,
  348.     75,    72,    57,    53,    40,     0,    61,    76,     0,    47,
  349.    121,    61,    61,     0,     0,    61,     0,    41,    42,    61,
  350.      0,    58,     0,    44,    43,     0,     0,     0
  351. };
  352.  
  353. static const short yydefgoto[] = {   306,
  354.     25,    26,    40,    44,   128,   129,    27,    46,    70,    28,
  355.     29,    58,    30,   109,    41,   110,   161,   111,   112,     2,
  356.      3,   131,   222,   237,   238,   168,   180,   181,   117,   118,
  357.     84,   159,   231,   266,    32,    33,    51,    34,    47,    35,
  358.    114,   115,   140,   188,   116,   139
  359. };
  360.  
  361. static const short yypact[] = {    15,
  362. -32768,    19,   995,-32768,-32768,   -24,   -25,-32768,-32768,    -2,
  363.     -2,-32768,     6,     6,     6,-32768,   -16,   393,   393,-32768,
  364.   1713,   393,  1087,    15,   791,-32768,   -12,    -7,-32768,-32768,
  365.    737,   189,-32768,-32768,   106,   521,  1067,  1087,-32768,   -12,
  366. -32768,    19,    15,   -12,-32768,   110,    -1,-32768,-32768,-32768,
  367.     -5,  1067,   393,  1600,    11,   -11,    11,    62,-32768,    11,
  368. -32768,-32768,-32768,    25,  1200,-32768,-32768,-32768,-32768,-32768,
  369.    627,-32768,-32768,  1600,  1600,    65,  1600,  1600,  1600,  1600,
  370.   1600,    42,    15,   914,  1600,   393,   393,   393,   393,   393,
  371.    393,-32768,-32768,-32768,-32768,    37,-32768,   114,    54,    15,
  372.     57,    -2,    -2,-32768,-32768,  1600,  1600,    15,   580,-32768,
  373.    684,-32768,   895,   521,    60,    15,    70,    26,  1299,    38,
  374. -32768,-32768,-32768,-32768,-32768,-32768,-32768,    63,-32768,   393,
  375. -32768,  1067,    70,  1200,    79,  1600,-32768,    95,  1134,-32768,
  376.    580,  1775,  1728,-32768,  1440,  1346,  1252,  1775,  1775,     6,
  377. -32768,  1299,   103,   103,    11,    11,    11,    11,  1600,  1600,
  378.   1600,    73,  1600,   838,  1647,-32768,-32768,    -2,  1299,    -2,
  379. -32768,-32768,-32768,    60,-32768,     6,  1713,  1087,-32768,    92,
  380.      4,  1487,   189,   109,-32768,   580,-32768,    15,-32768,-32768,
  381. -32768,-32768,    12,   189,    70,-32768,-32768,  1299,   126,-32768,
  382.   1299,    60,  1600,-32768,  1299,  1200,    -2,  1087,  1200,   116,
  383.    -17,    60,-32768,-32768,    15,    -1,-32768,    25,  1600,  1600,
  384.   1600,    -2,  1666,  1153,  1666,  1666,   135,  1666,  1666,  1666,
  385.    969,-32768,-32768,-32768,-32768,-32768,    70,    41,-32768,-32768,
  386. -32768,  1299,    15,-32768,    52,    15,   100,   155,  1020,-32768,
  387. -32768,    92,  1299,  1299,  1299,-32768,  1487,-32768,  1487,   703,
  388.   1790,-32768,  1581,  1534,  1393,  1666,    15,-32768,    17,   838,
  389.     -2,   838,  1600,    70,   948,  1600,    -2,  1666,  1487,-32768,
  390. -32768,-32768,   152,-32768,-32768,  1200,    15,  1600,    70,-32768,
  391.   1487,    15,    15,   838,    70,    15,   838,-32768,-32768,    15,
  392.    838,-32768,   838,-32768,-32768,   171,   177,-32768
  393. };
  394.  
  395. static const short yypgoto[] = {-32768,
  396. -32768,   153,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  397.    229,-32768,    81,   -59,   305,   101,-32768,-32768,-32768,    77,
  398.    148,   -35,   -70,-32768,-32768,  -100,-32768,-32768,   -49,   -15,
  399.     -3,-32768,   -27,-32768,   240,   162,-32768,-32768,   -61,    78,
  400.     16,  -105,   -63,  -143,   112,   -29
  401. };
  402.  
  403.  
  404. #define    YYLAST        1843
  405.  
  406.  
  407. static const short yytable[] = {    31,
  408.    138,    85,   133,   174,   223,     1,   170,    64,   187,     7,
  409.      1,   141,   235,   -79,   248,   236,   -79,   281,    36,    65,
  410.    282,    31,   120,    93,    94,   136,   136,     1,    37,    38,
  411.    215,     4,   113,   119,   119,   202,    52,    38,   136,   130,
  412.     36,   268,    71,    36,    24,   -79,   -79,   132,   119,    24,
  413.    134,    39,   136,   191,   186,    36,    39,    22,   241,    36,
  414.    207,    91,   -79,    83,   212,   -69,   135,   113,   144,   196,
  415.    142,   143,   150,   145,   146,   147,   148,   149,   137,   -87,
  416.    233,   152,   195,   182,    83,    83,    42,    42,   204,   160,
  417.     48,    49,    50,   192,   -70,    56,    56,    83,    56,    62,
  418.     83,   219,   169,   169,    42,   113,   163,   271,    72,   165,
  419.    113,    83,   124,   125,   216,   193,    92,   162,    39,   232,
  420.    121,    43,    43,   137,   123,   197,   199,   208,   119,   240,
  421.     56,   239,   198,   220,   221,   201,   247,   113,   262,    43,
  422.     93,    94,   243,    93,    94,   246,   126,   127,    88,    89,
  423.     90,   224,   273,    91,   252,   205,   206,   169,   274,   209,
  424.    113,   169,   218,    56,    56,    56,    56,    56,    56,   292,
  425.    307,    66,    69,   267,    65,   289,   308,    68,    42,    42,
  426.    251,   277,   113,    61,     0,     0,     0,   295,   184,    42,
  427.    122,     0,   245,     0,     0,   257,   259,   260,   261,   242,
  428.    263,   264,   265,     0,   119,     0,     0,    56,   269,   173,
  429.    287,     0,     0,    43,    43,   253,   254,   255,     0,     0,
  430.      0,     0,   293,     0,    43,   296,   189,    48,     0,     0,
  431.    151,   300,    86,    87,    88,    89,    90,     0,   279,    91,
  432.      0,   173,     0,     0,    42,   275,    42,   164,     0,    59,
  433.    291,     0,     0,    48,    56,   171,     0,    55,    57,   184,
  434.     60,     0,     0,   190,   210,     0,   113,     0,   113,   286,
  435.      0,     0,   169,     0,     0,     0,     0,     0,     0,    43,
  436.      0,    43,     0,    42,   169,   189,   173,     0,     0,     0,
  437.    113,     0,    60,   113,     0,     0,     0,   113,    42,   113,
  438.    184,   184,   184,   184,     0,   184,   184,   184,   184,     0,
  439.      0,     0,     0,   189,     0,    45,     0,     0,    43,     0,
  440.      0,     0,     0,   249,     0,   153,   154,   155,   156,   157,
  441.    158,     0,    73,    43,   184,   234,   184,   184,   184,   179,
  442.    184,   184,   184,   184,     0,     0,     0,    42,     0,     0,
  443.    183,     0,     0,    42,     0,   184,   184,     0,     0,     0,
  444.    276,     0,   250,     0,     0,     0,     0,     0,   184,   194,
  445.    283,     0,   285,     0,     0,     0,     0,     0,     0,     0,
  446.      0,     0,    43,     0,     0,     0,   288,     0,    43,     0,
  447.    270,     0,     0,   272,   299,     6,     7,   302,     0,     8,
  448.      9,   304,     0,   305,     0,   217,   166,   167,     0,     0,
  449.    179,     0,     0,     0,   280,     0,    60,   185,     0,     0,
  450.      0,   183,     0,     0,     0,     0,     0,    14,    15,    16,
  451.     17,     0,     0,     0,   294,     0,    18,    19,     0,   297,
  452.    298,    53,     0,   301,    22,    54,     0,   303,     0,     0,
  453.      0,   179,   179,   179,   179,     0,   179,   179,   179,   179,
  454.      0,     0,   183,   183,   183,   183,     0,   183,   183,   183,
  455.    183,     0,   213,     0,   214,     0,     0,     0,     0,     0,
  456.      0,     0,     0,     0,     0,   179,     0,   179,   179,   179,
  457.      0,   179,   179,   179,   179,     0,   183,     0,   183,   183,
  458.    183,     0,   183,   183,   183,   183,   179,   179,     0,     0,
  459.      0,   244,     0,     0,     0,     0,     0,   183,   183,   179,
  460.      0,    95,     0,     6,     7,     0,   256,     8,     9,     0,
  461.    183,     0,     0,     0,     0,     0,     0,    96,     0,    97,
  462.     98,    99,   100,   101,   102,   103,   104,   105,   106,   107,
  463.      0,    13,     0,     0,     0,    14,    15,    16,    17,     0,
  464.      0,     0,     0,     0,    18,    19,     0,    20,     0,    21,
  465.      0,     0,    22,    23,     0,   284,     0,    24,   108,    39,
  466.    172,   290,     6,     7,     0,     0,     8,     9,     0,     0,
  467.      0,     0,     0,     0,     0,     0,    96,     0,    97,    98,
  468.     99,   100,   101,   102,   103,   104,   105,   106,   107,     0,
  469.     13,     0,     0,     0,    14,    15,    16,    17,     0,     0,
  470.      0,     0,     0,    18,    19,     0,    20,    95,    21,     6,
  471.      7,    22,    23,     8,     9,     0,    24,   108,    39,     0,
  472.      0,     0,     0,    96,     0,    97,    98,    99,   100,   101,
  473.    102,   103,   104,   105,   106,   107,     0,    13,     0,     0,
  474.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  475.     18,    19,     0,    20,     0,    21,     0,     0,    22,    23,
  476.      0,     0,     0,    24,   175,    39,     6,     7,     0,     0,
  477.      8,     9,     0,   -78,     0,     0,   -78,     0,     0,     0,
  478.      0,     0,     0,     0,     0,     0,     7,     0,     0,     8,
  479.      9,-32768,     0,     0,   176,     0,     0,     0,    14,    15,
  480.     16,    17,     0,     0,     0,   -78,   -78,    18,    19,     0,
  481.     20,     0,   177,     0,     0,    22,   178,    14,    15,     6,
  482.      7,     0,   -78,     8,     9,    74,    18,    19,    75,    20,
  483.      0,   177,     0,     0,    22,    54,     0,     0,     0,     0,
  484.      0,     0,     0,     0,     0,     0,     0,    13,    76,    77,
  485.     78,    14,    15,    16,    17,    79,     0,    80,    81,    82,
  486.     18,    19,     0,    20,     0,    21,     0,     0,    22,    23,
  487.    -61,    67,     0,     6,     7,     0,    83,     8,     9,     0,
  488.      0,     0,     0,     1,     0,    10,    11,     0,     0,     0,
  489.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  490.     12,    13,     0,     0,     0,    14,    15,    16,    17,     0,
  491.      0,     0,     0,     0,    18,    19,     0,    20,     0,    21,
  492.      6,     7,    22,    23,     8,     9,     0,    24,     0,     0,
  493.      0,     0,     0,     0,    96,     0,    97,    98,    99,   100,
  494.    101,   102,   103,   104,   105,   106,   107,     0,    13,     0,
  495.      0,     0,    14,    15,    16,    17,     0,     0,     0,     0,
  496.      0,    18,    19,     0,    20,     0,    21,     0,     0,    22,
  497.     23,     0,     0,     0,    24,     0,    39,     6,     7,     0,
  498.      0,     8,     9,    74,     0,     0,    75,     1,     0,     0,
  499.      0,     0,     0,     0,     0,     0,     0,     7,     0,     0,
  500.      8,     9,     0,     0,     0,    13,    76,    77,    78,    14,
  501.     15,    16,    17,    79,     0,    80,    81,    82,    18,    19,
  502.      0,    20,     0,    21,     0,     0,    22,    23,    14,    15,
  503.      6,     7,     0,    39,     8,     9,    74,    18,    19,    75,
  504.     20,     0,    21,     0,     0,    22,    23,     0,     0,     0,
  505.      0,     0,     7,     0,     0,     8,     9,     0,    13,    76,
  506.     77,    78,    14,    15,    16,    17,    79,     0,    80,    81,
  507.     82,    18,    19,     0,    20,     5,    21,     6,     7,    22,
  508.     23,     8,     9,    14,    15,     0,    39,     0,     0,    10,
  509.     11,     0,    18,    19,     0,    20,     0,   177,     0,     0,
  510.     22,    54,     6,     7,    12,    13,     8,     9,     0,    14,
  511.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  512.      0,    20,     0,    21,     0,     0,    22,    23,     0,     0,
  513.     13,    24,     0,     0,    14,    15,    16,    17,     0,     0,
  514.      0,     0,     0,    18,    19,     0,    20,    63,    21,     6,
  515.      7,    22,    23,     8,     9,     0,     0,     0,    39,     0,
  516.      0,     0,     0,     0,     0,     0,     0,    63,     0,     6,
  517.      7,     0,     0,     8,     9,     0,     0,    13,     0,     0,
  518.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  519.     18,    19,     0,    20,     0,    21,     0,    13,    22,    23,
  520.    -86,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  521.     18,    19,     0,    20,   200,    21,     6,     7,    22,    23,
  522.      8,     9,     0,     0,     0,     0,     0,     0,     0,     0,
  523.      0,     0,     0,   258,     0,     6,     7,     0,     0,     8,
  524.      9,     0,     0,     0,    13,     0,     0,     0,    14,    15,
  525.     16,    17,     0,     0,     0,     0,     0,    18,    19,     0,
  526.     20,     0,    21,   176,     0,    22,    23,    14,    15,    16,
  527.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  528.      0,   177,     6,     7,    22,    54,     8,     9,    74,     0,
  529.      0,    75,     0,     0,     0,     0,     0,     0,     0,     0,
  530.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  531.     13,    76,    77,    78,    14,    15,    16,    17,    79,     0,
  532.     80,    81,    82,    18,    19,     0,    20,     0,    21,     0,
  533.      0,    22,    23,   137,     6,     7,     0,     0,     8,     9,
  534.     74,     0,     0,    75,     0,     0,     0,     0,     0,     0,
  535.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  536.      0,     0,    13,    76,    77,    78,    14,    15,    16,    17,
  537.     79,   203,    80,    81,    82,    18,    19,     0,    20,     0,
  538.     21,     6,     7,    22,    23,     8,     9,    74,     0,     0,
  539.     75,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  540.      0,     0,     0,     0,     0,     0,     0,     0,     0,    13,
  541.     76,    77,    78,    14,    15,    16,    17,    79,     0,    80,
  542.     81,    82,    18,    19,     0,    20,     0,    21,     6,     7,
  543.     22,    23,     8,     9,    74,     0,     0,    75,     0,     0,
  544.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  545.      0,     0,     0,     0,     0,     0,    13,    76,    77,     0,
  546.     14,    15,    16,    17,     0,     0,    80,    81,    82,    18,
  547.     19,     0,    20,     0,    21,     6,     7,    22,    23,     8,
  548.      9,   225,     0,     0,   226,     0,     0,     0,     0,     0,
  549.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  550.      0,     0,     0,   176,   227,   228,   229,    14,    15,    16,
  551.     17,   230,   278,     0,     0,     0,    18,    19,     0,    20,
  552.      0,   177,     6,     7,    22,    54,     8,     9,    74,     0,
  553.      0,    75,     0,     0,     0,     0,     0,     0,     0,     0,
  554.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  555.     13,    76,     0,     0,    14,    15,    16,    17,     0,     0,
  556.     80,    81,    82,    18,    19,     0,    20,     0,    21,     6,
  557.      7,    22,    23,     8,     9,   225,     0,     0,   226,     0,
  558.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  559.      0,     0,     0,     0,     0,     0,     0,   176,   227,   228,
  560.    229,    14,    15,    16,    17,   230,     0,     0,     0,     0,
  561.     18,    19,     0,    20,     0,   177,     6,     7,    22,    54,
  562.      8,     9,   225,     0,     0,   226,     0,     0,     0,     0,
  563.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  564.      0,     0,     0,     0,   176,   227,   228,     0,    14,    15,
  565.     16,    17,     0,     0,     0,     0,     0,    18,    19,     0,
  566.     20,     0,   177,     6,     7,    22,    54,     8,     9,   225,
  567.      0,     0,   226,     0,     0,     0,     0,     0,     0,     0,
  568.      0,     0,     6,     7,     0,     0,     8,     9,     0,     0,
  569.      0,   176,   227,     0,     0,    14,    15,    16,    17,     0,
  570.      0,     0,     0,     0,    18,    19,     0,    20,     0,   177,
  571.     13,     0,    22,    54,    14,    15,    16,    17,     0,     0,
  572.      0,     0,     0,    18,    19,     0,    20,     0,    21,     6,
  573.    211,    22,    23,     8,     9,     0,     0,     0,     0,     0,
  574.      0,     0,     0,     0,     0,     0,     0,     0,     6,     7,
  575.      0,     0,     8,     9,     0,     0,     0,    13,     0,     0,
  576.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  577.     18,    19,     0,    20,     0,    21,   176,     0,    22,    23,
  578.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  579.     19,     0,    20,     0,   177,     6,     7,    22,    54,     8,
  580.      9,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  581.      0,     7,     0,     0,     8,     9,    74,     0,     0,-32768,
  582.      0,     0,     0,     0,     0,     0,     0,    14,    15,    16,
  583.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  584.      0,    53,    14,    15,    22,    54,     0,     0,    80,    81,
  585.     82,    18,    19,     0,    20,     0,    21,     0,     7,    22,
  586.     23,     8,     9,-32768,     0,     0,     0,     0,     0,     0,
  587.      0,     0,     0,     7,     0,     0,     8,     9,   225,     0,
  588.      0,-32768,     0,     0,     0,     0,     0,     0,     0,    14,
  589.     15,     0,     0,     0,     0,-32768,-32768,-32768,    18,    19,
  590.      0,    20,     0,    21,    14,    15,    22,    23,     0,     0,
  591.      0,     0,     0,    18,    19,     0,    20,     0,   177,     0,
  592.      0,    22,    54
  593. };
  594.  
  595. static const short yycheck[] = {     3,
  596.     64,    31,    52,   109,     1,    13,   107,    23,   114,     4,
  597.     13,    71,     1,    10,    32,     4,    13,     1,     3,    23,
  598.      4,    25,    38,    35,    36,     1,     1,    13,    53,    55,
  599.    174,    13,    36,    37,    38,   141,    53,    55,     1,    41,
  600.     25,     1,    27,    28,    57,    42,    43,    53,    52,    57,
  601.     54,    59,     1,   117,   114,    40,    59,    52,   202,    44,
  602.    161,    51,    59,    60,   165,    54,     5,    71,     4,   133,
  603.     74,    75,    31,    77,    78,    79,    80,    81,    54,    54,
  604.    186,    85,   132,   111,    60,    60,    10,    11,   150,    53,
  605.     13,    14,    15,    56,    54,    18,    19,    60,    21,    22,
  606.     60,    10,   106,   107,    28,   109,    53,    56,    28,    53,
  607.    114,    60,     3,     4,   176,    53,    11,     4,    59,    11,
  608.     40,    10,    11,    54,    44,    47,    32,    55,   132,     4,
  609.     53,   195,   136,    42,    43,   139,    21,   141,     4,    28,
  610.     35,    36,   206,    35,    36,   209,    37,    38,    46,    47,
  611.     48,   181,    53,    51,   218,   159,   160,   161,     4,   163,
  612.    164,   165,   178,    86,    87,    88,    89,    90,    91,    18,
  613.      0,    24,    25,   237,   178,   276,     0,    25,   102,   103,
  614.    216,   252,   186,    22,    -1,    -1,    -1,   288,   111,   113,
  615.     43,    -1,   208,    -1,    -1,   223,   224,   225,   226,   203,
  616.    228,   229,   230,    -1,   208,    -1,    -1,   130,   238,   109,
  617.    274,    -1,    -1,   102,   103,   219,   220,   221,    -1,    -1,
  618.     -1,    -1,   286,    -1,   113,   289,   115,   150,    -1,    -1,
  619.     83,   295,    44,    45,    46,    47,    48,    -1,   266,    51,
  620.     -1,   141,    -1,    -1,   168,   249,   170,   100,    -1,    21,
  621.    278,    -1,    -1,   176,   177,   108,    -1,    18,    19,   182,
  622.     21,    -1,    -1,   116,   164,    -1,   270,    -1,   272,   273,
  623.     -1,    -1,   276,    -1,    -1,    -1,    -1,    -1,    -1,   168,
  624.     -1,   170,    -1,   207,   288,   174,   186,    -1,    -1,    -1,
  625.    294,    -1,    53,   297,    -1,    -1,    -1,   301,   222,   303,
  626.    223,   224,   225,   226,    -1,   228,   229,   230,   231,    -1,
  627.     -1,    -1,    -1,   202,    -1,    11,    -1,    -1,   207,    -1,
  628.     -1,    -1,    -1,   212,    -1,    86,    87,    88,    89,    90,
  629.     91,    -1,    28,   222,   257,   188,   259,   260,   261,   111,
  630.    263,   264,   265,   266,    -1,    -1,    -1,   271,    -1,    -1,
  631.    111,    -1,    -1,   277,    -1,   278,   279,    -1,    -1,    -1,
  632.    249,    -1,   215,    -1,    -1,    -1,    -1,    -1,   291,   130,
  633.    270,    -1,   272,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  634.     -1,    -1,   271,    -1,    -1,    -1,   275,    -1,   277,    -1,
  635.    243,    -1,    -1,   246,   294,     3,     4,   297,    -1,     7,
  636.      8,   301,    -1,   303,    -1,   177,   102,   103,    -1,    -1,
  637.    182,    -1,    -1,    -1,   267,    -1,   177,   113,    -1,    -1,
  638.     -1,   182,    -1,    -1,    -1,    -1,    -1,    35,    36,    37,
  639.     38,    -1,    -1,    -1,   287,    -1,    44,    45,    -1,   292,
  640.    293,    49,    -1,   296,    52,    53,    -1,   300,    -1,    -1,
  641.     -1,   223,   224,   225,   226,    -1,   228,   229,   230,   231,
  642.     -1,    -1,   223,   224,   225,   226,    -1,   228,   229,   230,
  643.    231,    -1,   168,    -1,   170,    -1,    -1,    -1,    -1,    -1,
  644.     -1,    -1,    -1,    -1,    -1,   257,    -1,   259,   260,   261,
  645.     -1,   263,   264,   265,   266,    -1,   257,    -1,   259,   260,
  646.    261,    -1,   263,   264,   265,   266,   278,   279,    -1,    -1,
  647.     -1,   207,    -1,    -1,    -1,    -1,    -1,   278,   279,   291,
  648.     -1,     1,    -1,     3,     4,    -1,   222,     7,     8,    -1,
  649.    291,    -1,    -1,    -1,    -1,    -1,    -1,    17,    -1,    19,
  650.     20,    21,    22,    23,    24,    25,    26,    27,    28,    29,
  651.     -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,
  652.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  653.     -1,    -1,    52,    53,    -1,   271,    -1,    57,    58,    59,
  654.      1,   277,     3,     4,    -1,    -1,     7,     8,    -1,    -1,
  655.     -1,    -1,    -1,    -1,    -1,    -1,    17,    -1,    19,    20,
  656.     21,    22,    23,    24,    25,    26,    27,    28,    29,    -1,
  657.     31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  658.     -1,    -1,    -1,    44,    45,    -1,    47,     1,    49,     3,
  659.      4,    52,    53,     7,     8,    -1,    57,    58,    59,    -1,
  660.     -1,    -1,    -1,    17,    -1,    19,    20,    21,    22,    23,
  661.     24,    25,    26,    27,    28,    29,    -1,    31,    -1,    -1,
  662.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  663.     44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,
  664.     -1,    -1,    -1,    57,     1,    59,     3,     4,    -1,    -1,
  665.      7,     8,    -1,    10,    -1,    -1,    13,    -1,    -1,    -1,
  666.     -1,    -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,     7,
  667.      8,     9,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,
  668.     37,    38,    -1,    -1,    -1,    42,    43,    44,    45,    -1,
  669.     47,    -1,    49,    -1,    -1,    52,    53,    35,    36,     3,
  670.      4,    -1,    59,     7,     8,     9,    44,    45,    12,    47,
  671.     -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,    -1,
  672.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  673.     34,    35,    36,    37,    38,    39,    -1,    41,    42,    43,
  674.     44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,
  675.      0,     1,    -1,     3,     4,    -1,    60,     7,     8,    -1,
  676.     -1,    -1,    -1,    13,    -1,    15,    16,    -1,    -1,    -1,
  677.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  678.     30,    31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,
  679.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  680.      3,     4,    52,    53,     7,     8,    -1,    57,    -1,    -1,
  681.     -1,    -1,    -1,    -1,    17,    -1,    19,    20,    21,    22,
  682.     23,    24,    25,    26,    27,    28,    29,    -1,    31,    -1,
  683.     -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  684.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  685.     53,    -1,    -1,    -1,    57,    -1,    59,     3,     4,    -1,
  686.     -1,     7,     8,     9,    -1,    -1,    12,    13,    -1,    -1,
  687.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,
  688.      7,     8,    -1,    -1,    -1,    31,    32,    33,    34,    35,
  689.     36,    37,    38,    39,    -1,    41,    42,    43,    44,    45,
  690.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    35,    36,
  691.      3,     4,    -1,    59,     7,     8,     9,    44,    45,    12,
  692.     47,    -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,
  693.     -1,    -1,     4,    -1,    -1,     7,     8,    -1,    31,    32,
  694.     33,    34,    35,    36,    37,    38,    39,    -1,    41,    42,
  695.     43,    44,    45,    -1,    47,     1,    49,     3,     4,    52,
  696.     53,     7,     8,    35,    36,    -1,    59,    -1,    -1,    15,
  697.     16,    -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,
  698.     52,    53,     3,     4,    30,    31,     7,     8,    -1,    35,
  699.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  700.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    -1,    -1,
  701.     31,    57,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  702.     -1,    -1,    -1,    44,    45,    -1,    47,     1,    49,     3,
  703.      4,    52,    53,     7,     8,    -1,    -1,    -1,    59,    -1,
  704.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     1,    -1,     3,
  705.      4,    -1,    -1,     7,     8,    -1,    -1,    31,    -1,    -1,
  706.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  707.     44,    45,    -1,    47,    -1,    49,    -1,    31,    52,    53,
  708.     54,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  709.     44,    45,    -1,    47,     1,    49,     3,     4,    52,    53,
  710.      7,     8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  711.     -1,    -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,
  712.      8,    -1,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,
  713.     37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,
  714.     47,    -1,    49,    31,    -1,    52,    53,    35,    36,    37,
  715.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  716.     -1,    49,     3,     4,    52,    53,     7,     8,     9,    -1,
  717.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  718.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  719.     31,    32,    33,    34,    35,    36,    37,    38,    39,    -1,
  720.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,    -1,
  721.     -1,    52,    53,    54,     3,     4,    -1,    -1,     7,     8,
  722.      9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,
  723.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  724.     -1,    -1,    31,    32,    33,    34,    35,    36,    37,    38,
  725.     39,    40,    41,    42,    43,    44,    45,    -1,    47,    -1,
  726.     49,     3,     4,    52,    53,     7,     8,     9,    -1,    -1,
  727.     12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  728.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  729.     32,    33,    34,    35,    36,    37,    38,    39,    -1,    41,
  730.     42,    43,    44,    45,    -1,    47,    -1,    49,     3,     4,
  731.     52,    53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,
  732.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  733.     -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,    -1,
  734.     35,    36,    37,    38,    -1,    -1,    41,    42,    43,    44,
  735.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  736.      8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,
  737.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  738.     -1,    -1,    -1,    31,    32,    33,    34,    35,    36,    37,
  739.     38,    39,    40,    -1,    -1,    -1,    44,    45,    -1,    47,
  740.     -1,    49,     3,     4,    52,    53,     7,     8,     9,    -1,
  741.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  742.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  743.     31,    32,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  744.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,     3,
  745.      4,    52,    53,     7,     8,     9,    -1,    -1,    12,    -1,
  746.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  747.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  748.     34,    35,    36,    37,    38,    39,    -1,    -1,    -1,    -1,
  749.     44,    45,    -1,    47,    -1,    49,     3,     4,    52,    53,
  750.      7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,
  751.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  752.     -1,    -1,    -1,    -1,    31,    32,    33,    -1,    35,    36,
  753.     37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,
  754.     47,    -1,    49,     3,     4,    52,    53,     7,     8,     9,
  755.     -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  756.     -1,    -1,     3,     4,    -1,    -1,     7,     8,    -1,    -1,
  757.     -1,    31,    32,    -1,    -1,    35,    36,    37,    38,    -1,
  758.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  759.     31,    -1,    52,    53,    35,    36,    37,    38,    -1,    -1,
  760.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,     3,
  761.      4,    52,    53,     7,     8,    -1,    -1,    -1,    -1,    -1,
  762.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,
  763.     -1,    -1,     7,     8,    -1,    -1,    -1,    31,    -1,    -1,
  764.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  765.     44,    45,    -1,    47,    -1,    49,    31,    -1,    52,    53,
  766.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  767.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  768.      8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  769.     -1,     4,    -1,    -1,     7,     8,     9,    -1,    -1,    12,
  770.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    35,    36,    37,
  771.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  772.     -1,    49,    35,    36,    52,    53,    -1,    -1,    41,    42,
  773.     43,    44,    45,    -1,    47,    -1,    49,    -1,     4,    52,
  774.     53,     7,     8,     9,    -1,    -1,    -1,    -1,    -1,    -1,
  775.     -1,    -1,    -1,     4,    -1,    -1,     7,     8,     9,    -1,
  776.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    35,
  777.     36,    -1,    -1,    -1,    -1,    41,    42,    43,    44,    45,
  778.     -1,    47,    -1,    49,    35,    36,    52,    53,    -1,    -1,
  779.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,    -1,
  780.     -1,    52,    53
  781. };
  782. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  783. #line 3 "bison.simple"
  784.  
  785. /* Skeleton output parser for bison,
  786.    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  787.  
  788.    This program is free software; you can redistribute it and/or modify
  789.    it under the terms of the GNU General Public License as published by
  790.    the Free Software Foundation; either version 1, or (at your option)
  791.    any later version.
  792.  
  793.    This program is distributed in the hope that it will be useful,
  794.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  795.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  796.    GNU General Public License for more details.
  797.  
  798.    You should have received a copy of the GNU General Public License
  799.    along with this program; if not, write to the Free Software
  800.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  801.  
  802. #ifndef alloca
  803. #ifdef __GNUC__
  804. #define alloca __builtin_alloca
  805. #else /* not GNU C.  */
  806. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  807. #include <alloca.h>
  808. #else /* not sparc */
  809. #if defined (MSDOS) && !defined (__TURBOC__)
  810. #include <malloc.h>
  811. #else /* not MSDOS, or __TURBOC__ */
  812. #if defined(_AIX)
  813. #include <malloc.h>
  814.  #pragma alloca
  815. #endif /* not _AIX */
  816. #endif /* not MSDOS, or __TURBOC__ */
  817. #endif /* not sparc.  */
  818. #endif /* not GNU C.  */
  819. #endif /* alloca not defined.  */
  820.  
  821. /* This is the parser code that is written into each bison parser
  822.   when the %semantic_parser declaration is not specified in the grammar.
  823.   It was written by Richard Stallman by simplifying the hairy parser
  824.   used when %semantic_parser is specified.  */
  825.  
  826. /* Note: there must be only one dollar sign in this file.
  827.    It is replaced by the list of actions, each action
  828.    as one case of the switch.  */
  829.  
  830. #define yyerrok        (yyerrstatus = 0)
  831. #define yyclearin    (yychar = YYEMPTY)
  832. #define YYEMPTY        -2
  833. #define YYEOF        0
  834. #define YYACCEPT    return(0)
  835. #define YYABORT     return(1)
  836. #define YYERROR        goto yyerrlab1
  837. /* Like YYERROR except do call yyerror.
  838.    This remains here temporarily to ease the
  839.    transition to the new meaning of YYERROR, for GCC.
  840.    Once GCC version 2 has supplanted version 1, this can go.  */
  841. #define YYFAIL        goto yyerrlab
  842. #define YYRECOVERING()  (!!yyerrstatus)
  843. #define YYBACKUP(token, value) \
  844. do                                \
  845.   if (yychar == YYEMPTY && yylen == 1)                \
  846.     { yychar = (token), yylval = (value);            \
  847.       yychar1 = YYTRANSLATE (yychar);                \
  848.       YYPOPSTACK;                        \
  849.       goto yybackup;                        \
  850.     }                                \
  851.   else                                \
  852.     { yyerror ("syntax error: cannot back up"); YYERROR; }    \
  853. while (0)
  854.  
  855. #define YYTERROR    1
  856. #define YYERRCODE    256
  857.  
  858. #ifndef YYPURE
  859. #define YYLEX        yylex()
  860. #endif
  861.  
  862. #ifdef YYPURE
  863. #ifdef YYLSP_NEEDED
  864. #define YYLEX        yylex(&yylval, &yylloc)
  865. #else
  866. #define YYLEX        yylex(&yylval)
  867. #endif
  868. #endif
  869.  
  870. /* If nonreentrant, generate the variables here */
  871.  
  872. #ifndef YYPURE
  873.  
  874. int    yychar;            /*  the lookahead symbol        */
  875. YYSTYPE    yylval;            /*  the semantic value of the        */
  876.                 /*  lookahead symbol            */
  877.  
  878. #ifdef YYLSP_NEEDED
  879. YYLTYPE yylloc;            /*  location data for the lookahead    */
  880.                 /*  symbol                */
  881. #endif
  882.  
  883. int yynerrs;            /*  number of parse errors so far       */
  884. #endif  /* not YYPURE */
  885.  
  886. #if YYDEBUG != 0
  887. int yydebug;            /*  nonzero means print parse trace    */
  888. /* Since this is uninitialized, it does not stop multiple parsers
  889.    from coexisting.  */
  890. #endif
  891.  
  892. /*  YYINITDEPTH indicates the initial size of the parser's stacks    */
  893.  
  894. #ifndef    YYINITDEPTH
  895. #define YYINITDEPTH 200
  896. #endif
  897.  
  898. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  899.     (effective only if the built-in stack extension method is used).  */
  900.  
  901. #if YYMAXDEPTH == 0
  902. #undef YYMAXDEPTH
  903. #endif
  904.  
  905. #ifndef YYMAXDEPTH
  906. #define YYMAXDEPTH 10000
  907. #endif
  908.  
  909. #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  910. #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  911. #else                /* not GNU C or C++ */
  912. #ifndef __cplusplus
  913.  
  914. /* This is the most reliable way to avoid incompatibilities
  915.    in available built-in functions on various systems.  */
  916. static void
  917. __yy_bcopy (from, to, count)
  918.      char *from;
  919.      char *to;
  920.      int count;
  921. {
  922.   register char *f = from;
  923.   register char *t = to;
  924.   register int i = count;
  925.  
  926.   while (i-- > 0)
  927.     *t++ = *f++;
  928. }
  929.  
  930. #else /* __cplusplus */
  931.  
  932. /* This is the most reliable way to avoid incompatibilities
  933.    in available built-in functions on various systems.  */
  934. static void
  935. __yy_bcopy (char *from, char *to, int count)
  936. {
  937.   register char *f = from;
  938.   register char *t = to;
  939.   register int i = count;
  940.  
  941.   while (i-- > 0)
  942.     *t++ = *f++;
  943. }
  944.  
  945. #endif
  946. #endif
  947.  
  948. #line 169 "bison.simple"
  949. int
  950. yyparse()
  951. {
  952.   register int yystate;
  953.   register int yyn;
  954.   register short *yyssp;
  955.   register YYSTYPE *yyvsp;
  956.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  957.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  958.  
  959.   short    yyssa[YYINITDEPTH];    /*  the state stack            */
  960.   YYSTYPE yyvsa[YYINITDEPTH];    /*  the semantic value stack        */
  961.  
  962.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  963.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  964.  
  965. #ifdef YYLSP_NEEDED
  966.   YYLTYPE yylsa[YYINITDEPTH];    /*  the location stack            */
  967.   YYLTYPE *yyls = yylsa;
  968.   YYLTYPE *yylsp;
  969.  
  970. #define YYPOPSTACK   (yyvsp--, yysp--, yylsp--)
  971. #else
  972. #define YYPOPSTACK   (yyvsp--, yysp--)
  973. #endif
  974.  
  975.   int yystacksize = YYINITDEPTH;
  976.  
  977. #ifdef YYPURE
  978.   int yychar;
  979.   YYSTYPE yylval;
  980.   int yynerrs;
  981. #ifdef YYLSP_NEEDED
  982.   YYLTYPE yylloc;
  983. #endif
  984. #endif
  985.  
  986.   YYSTYPE yyval;        /*  the variable used to return        */
  987.                 /*  semantic values from the action    */
  988.                 /*  routines                */
  989.  
  990.   int yylen;
  991.  
  992. #if YYDEBUG != 0
  993.   if (yydebug)
  994.     fprintf(stderr, "Starting parse\n");
  995. #endif
  996.  
  997.   yystate = 0;
  998.   yyerrstatus = 0;
  999.   yynerrs = 0;
  1000.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  1001.  
  1002.   /* Initialize stack pointers.
  1003.      Waste one element of value and location stack
  1004.      so that they stay on the same level as the state stack.  */
  1005.  
  1006.   yyssp = yyss - 1;
  1007.   yyvsp = yyvs;
  1008. #ifdef YYLSP_NEEDED
  1009.   yylsp = yyls;
  1010. #endif
  1011.  
  1012. /* Push a new state, which is found in  yystate  .  */
  1013. /* In all cases, when you get here, the value and location stacks
  1014.    have just been pushed. so pushing a state here evens the stacks.  */
  1015. yynewstate:
  1016.  
  1017.   *++yyssp = yystate;
  1018.  
  1019.   if (yyssp >= yyss + yystacksize - 1)
  1020.     {
  1021.       /* Give user a chance to reallocate the stack */
  1022.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  1023.       YYSTYPE *yyvs1 = yyvs;
  1024.       short *yyss1 = yyss;
  1025. #ifdef YYLSP_NEEDED
  1026.       YYLTYPE *yyls1 = yyls;
  1027. #endif
  1028.  
  1029.       /* Get the current used size of the three stacks, in elements.  */
  1030.       int size = yyssp - yyss + 1;
  1031.  
  1032. #ifdef yyoverflow
  1033.       /* Each stack pointer address is followed by the size of
  1034.      the data in use in that stack, in bytes.  */
  1035.       yyoverflow("parser stack overflow",
  1036.          &yyss1, size * sizeof (*yyssp),
  1037.          &yyvs1, size * sizeof (*yyvsp),
  1038. #ifdef YYLSP_NEEDED
  1039.          &yyls1, size * sizeof (*yylsp),
  1040. #endif
  1041.          &yystacksize);
  1042.  
  1043.       yyss = yyss1; yyvs = yyvs1;
  1044. #ifdef YYLSP_NEEDED
  1045.       yyls = yyls1;
  1046. #endif
  1047. #else /* no yyoverflow */
  1048.       /* Extend the stack our own way.  */
  1049.       if (yystacksize >= YYMAXDEPTH)
  1050.     {
  1051.       yyerror("parser stack overflow");
  1052.       return 2;
  1053.     }
  1054.       yystacksize *= 2;
  1055.       if (yystacksize > YYMAXDEPTH)
  1056.     yystacksize = YYMAXDEPTH;
  1057.       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  1058.       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  1059.       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  1060.       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  1061. #ifdef YYLSP_NEEDED
  1062.       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  1063.       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  1064. #endif
  1065. #endif /* no yyoverflow */
  1066.  
  1067.       yyssp = yyss + size - 1;
  1068.       yyvsp = yyvs + size - 1;
  1069. #ifdef YYLSP_NEEDED
  1070.       yylsp = yyls + size - 1;
  1071. #endif
  1072.  
  1073. #if YYDEBUG != 0
  1074.       if (yydebug)
  1075.     fprintf(stderr, "Stack size increased to %d\n", yystacksize);
  1076. #endif
  1077.  
  1078.       if (yyssp >= yyss + yystacksize - 1)
  1079.     YYABORT;
  1080.     }
  1081.  
  1082. #if YYDEBUG != 0
  1083.   if (yydebug)
  1084.     fprintf(stderr, "Entering state %d\n", yystate);
  1085. #endif
  1086.  
  1087.  yybackup:
  1088.  
  1089. /* Do appropriate processing given the current state.  */
  1090. /* Read a lookahead token if we need one and don't already have one.  */
  1091. /* yyresume: */
  1092.  
  1093.   /* First try to decide what to do without reference to lookahead token.  */
  1094.  
  1095.   yyn = yypact[yystate];
  1096.   if (yyn == YYFLAG)
  1097.     goto yydefault;
  1098.  
  1099.   /* Not known => get a lookahead token if don't already have one.  */
  1100.  
  1101.   /* yychar is either YYEMPTY or YYEOF
  1102.      or a valid token in external form.  */
  1103.  
  1104.   if (yychar == YYEMPTY)
  1105.     {
  1106. #if YYDEBUG != 0
  1107.       if (yydebug)
  1108.     fprintf(stderr, "Reading a token: ");
  1109. #endif
  1110.       yychar = YYLEX;
  1111.     }
  1112.  
  1113.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1114.  
  1115.   if (yychar <= 0)        /* This means end of input. */
  1116.     {
  1117.       yychar1 = 0;
  1118.       yychar = YYEOF;        /* Don't call YYLEX any more */
  1119.  
  1120. #if YYDEBUG != 0
  1121.       if (yydebug)
  1122.     fprintf(stderr, "Now at end of input.\n");
  1123. #endif
  1124.     }
  1125.   else
  1126.     {
  1127.       yychar1 = YYTRANSLATE(yychar);
  1128.  
  1129. #if YYDEBUG != 0
  1130.       if (yydebug)
  1131.     {
  1132.       fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  1133.       /* Give the individual parser a way to print the precise meaning
  1134.          of a token, for further debugging info.  */
  1135. #ifdef YYPRINT
  1136.       YYPRINT (stderr, yychar, yylval);
  1137. #endif
  1138.       fprintf (stderr, ")\n");
  1139.     }
  1140. #endif
  1141.     }
  1142.  
  1143.   yyn += yychar1;
  1144.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1145.     goto yydefault;
  1146.  
  1147.   yyn = yytable[yyn];
  1148.  
  1149.   /* yyn is what to do for this token type in this state.
  1150.      Negative => reduce, -yyn is rule number.
  1151.      Positive => shift, yyn is new state.
  1152.        New state is final state => don't bother to shift,
  1153.        just return success.
  1154.      0, or most negative number => error.  */
  1155.  
  1156.   if (yyn < 0)
  1157.     {
  1158.       if (yyn == YYFLAG)
  1159.     goto yyerrlab;
  1160.       yyn = -yyn;
  1161.       goto yyreduce;
  1162.     }
  1163.   else if (yyn == 0)
  1164.     goto yyerrlab;
  1165.  
  1166.   if (yyn == YYFINAL)
  1167.     YYACCEPT;
  1168.  
  1169.   /* Shift the lookahead token.  */
  1170.  
  1171. #if YYDEBUG != 0
  1172.   if (yydebug)
  1173.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1174. #endif
  1175.  
  1176.   /* Discard the token being shifted unless it is eof.  */
  1177.   if (yychar != YYEOF)
  1178.     yychar = YYEMPTY;
  1179.  
  1180.   *++yyvsp = yylval;
  1181. #ifdef YYLSP_NEEDED
  1182.   *++yylsp = yylloc;
  1183. #endif
  1184.  
  1185.   /* count tokens shifted since error; after three, turn off error status.  */
  1186.   if (yyerrstatus) yyerrstatus--;
  1187.  
  1188.   yystate = yyn;
  1189.   goto yynewstate;
  1190.  
  1191. /* Do the default action for the current state.  */
  1192. yydefault:
  1193.  
  1194.   yyn = yydefact[yystate];
  1195.   if (yyn == 0)
  1196.     goto yyerrlab;
  1197.  
  1198. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1199. yyreduce:
  1200.   yylen = yyr2[yyn];
  1201.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1202.  
  1203. #if YYDEBUG != 0
  1204.   if (yydebug)
  1205.     {
  1206.       int i;
  1207.  
  1208.       fprintf (stderr, "Reducing via rule %d (line %d), ",
  1209.            yyn, yyrline[yyn]);
  1210.  
  1211.       /* Print the symboles being reduced, and their result.  */
  1212.       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  1213.     fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  1214.       fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  1215.     }
  1216. #endif
  1217.  
  1218.  
  1219.   switch (yyn) {
  1220.  
  1221. case 1:
  1222. #line 137 "awk.y"
  1223. { expression_value = yyvsp[-1].nodeval; ;
  1224.     break;}
  1225. case 2:
  1226. #line 142 "awk.y"
  1227. { 
  1228.             if (yyvsp[0].nodeval != NULL)
  1229.                 yyval.nodeval = yyvsp[0].nodeval;
  1230.             else
  1231.                 yyval.nodeval = NULL;
  1232.             yyerrok;
  1233.         ;
  1234.     break;}
  1235. case 3:
  1236. #line 151 "awk.y"
  1237. {
  1238.             if (yyvsp[0].nodeval == NULL)
  1239.                 yyval.nodeval = yyvsp[-1].nodeval;
  1240.             else if (yyvsp[-1].nodeval == NULL)
  1241.                 yyval.nodeval = yyvsp[0].nodeval;
  1242.             else {
  1243.                 if (yyvsp[-1].nodeval->type != Node_rule_list)
  1244.                     yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
  1245.                         (NODE*)NULL);
  1246.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  1247.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  1248.             }
  1249.             yyerrok;
  1250.         ;
  1251.     break;}
  1252. case 4:
  1253. #line 165 "awk.y"
  1254. { yyval.nodeval = NULL; ;
  1255.     break;}
  1256. case 5:
  1257. #line 166 "awk.y"
  1258. { yyval.nodeval = NULL; ;
  1259.     break;}
  1260. case 6:
  1261. #line 170 "awk.y"
  1262. { io_allowed = 0; ;
  1263.     break;}
  1264. case 7:
  1265. #line 172 "awk.y"
  1266. {
  1267.         if (begin_block) {
  1268.             if (begin_block->type != Node_rule_list)
  1269.                 begin_block = node(begin_block, Node_rule_list,
  1270.                     (NODE *)NULL);
  1271.             (void) append_right (begin_block, node(
  1272.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1273.                 Node_rule_list, (NODE *)NULL) );
  1274.         } else
  1275.             begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1276.         yyval.nodeval = NULL;
  1277.         io_allowed = 1;
  1278.         yyerrok;
  1279.       ;
  1280.     break;}
  1281. case 8:
  1282. #line 186 "awk.y"
  1283. { io_allowed = 0; ;
  1284.     break;}
  1285. case 9:
  1286. #line 188 "awk.y"
  1287. {
  1288.         if (end_block) {
  1289.             if (end_block->type != Node_rule_list)
  1290.                 end_block = node(end_block, Node_rule_list,
  1291.                     (NODE *)NULL);
  1292.             (void) append_right (end_block, node(
  1293.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1294.                 Node_rule_list, (NODE *)NULL));
  1295.         } else
  1296.             end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1297.         yyval.nodeval = NULL;
  1298.         io_allowed = 1;
  1299.         yyerrok;
  1300.       ;
  1301.     break;}
  1302. case 10:
  1303. #line 203 "awk.y"
  1304. {
  1305.         warning("BEGIN blocks must have an action part");
  1306.         errcount++;
  1307.         yyerrok;
  1308.       ;
  1309.     break;}
  1310. case 11:
  1311. #line 209 "awk.y"
  1312. {
  1313.         warning("END blocks must have an action part");
  1314.         errcount++;
  1315.         yyerrok;
  1316.       ;
  1317.     break;}
  1318. case 12:
  1319. #line 215 "awk.y"
  1320. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1321.     break;}
  1322. case 13:
  1323. #line 217 "awk.y"
  1324. { yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1325.     break;}
  1326. case 14:
  1327. #line 219 "awk.y"
  1328. {
  1329.           yyval.nodeval = node (yyvsp[-1].nodeval,
  1330.                  Node_rule_node,
  1331.                  node(node(node(make_number(0.0),
  1332.                         Node_field_spec,
  1333.                         (NODE *) NULL),
  1334.                     Node_expression_list,
  1335.                     (NODE *) NULL),
  1336.                   Node_K_print,
  1337.                   (NODE *) NULL));
  1338.           yyerrok;
  1339.         ;
  1340.     break;}
  1341. case 15:
  1342. #line 232 "awk.y"
  1343. {
  1344.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  1345.             yyval.nodeval = NULL;
  1346.             yyerrok;
  1347.         ;
  1348.     break;}
  1349. case 16:
  1350. #line 241 "awk.y"
  1351. { yyval.sval = yyvsp[0].sval; ;
  1352.     break;}
  1353. case 17:
  1354. #line 243 "awk.y"
  1355. { yyval.sval = yyvsp[0].sval; ;
  1356.     break;}
  1357. case 18:
  1358. #line 245 "awk.y"
  1359. {
  1360.         yyerror("%s() is a built-in function, it cannot be redefined",
  1361.             tokstart);
  1362.         errcount++;
  1363.         /* yyerrok; */
  1364.       ;
  1365.     break;}
  1366. case 21:
  1367. #line 260 "awk.y"
  1368. {
  1369.             param_counter = 0;
  1370.         ;
  1371.     break;}
  1372. case 22:
  1373. #line 264 "awk.y"
  1374. {
  1375.             yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
  1376.             can_return = 1;
  1377.         ;
  1378.     break;}
  1379. case 23:
  1380. #line 272 "awk.y"
  1381. {
  1382.         yyval.nodeval = yyvsp[-2].nodeval;
  1383.         can_return = 0;
  1384.       ;
  1385.     break;}
  1386. case 24:
  1387. #line 281 "awk.y"
  1388. { yyval.nodeval = yyvsp[0].nodeval; ;
  1389.     break;}
  1390. case 25:
  1391. #line 283 "awk.y"
  1392. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  1393.     break;}
  1394. case 26:
  1395. #line 292 "awk.y"
  1396. { ++want_regexp; ;
  1397.     break;}
  1398. case 27:
  1399. #line 294 "awk.y"
  1400. {
  1401.           NODE *n;
  1402.  
  1403.           getnode(n);
  1404.           n->type = Node_regex;
  1405.           n->re_exp = make_string(yyvsp[-1].sval, strlen(yyvsp[-1].sval));
  1406.           n->re_reg = mk_re_parse(yyvsp[-1].sval, 0);
  1407.           n->re_text = NULL;
  1408.           n->re_flags = GCONST;
  1409.           n->re_cnt = 1;
  1410.           yyval.nodeval = n;
  1411.         ;
  1412.     break;}
  1413. case 28:
  1414. #line 310 "awk.y"
  1415. { yyval.nodeval = yyvsp[-3].nodeval ; ;
  1416.     break;}
  1417. case 29:
  1418. #line 312 "awk.y"
  1419. { yyval.nodeval = NULL; ;
  1420.     break;}
  1421. case 30:
  1422. #line 317 "awk.y"
  1423. { yyval.nodeval = yyvsp[0].nodeval; ;
  1424.     break;}
  1425. case 31:
  1426. #line 319 "awk.y"
  1427. {
  1428.             if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
  1429.                 yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
  1430.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1431.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1432.                 yyerrok;
  1433.         ;
  1434.     break;}
  1435. case 32:
  1436. #line 327 "awk.y"
  1437. { yyval.nodeval = NULL; ;
  1438.     break;}
  1439. case 33:
  1440. #line 329 "awk.y"
  1441. { yyval.nodeval = NULL; ;
  1442.     break;}
  1443. case 36:
  1444. #line 339 "awk.y"
  1445. { yyval.nodeval = NULL; ;
  1446.     break;}
  1447. case 37:
  1448. #line 341 "awk.y"
  1449. { yyval.nodeval = NULL; ;
  1450.     break;}
  1451. case 38:
  1452. #line 343 "awk.y"
  1453. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1454.     break;}
  1455. case 39:
  1456. #line 345 "awk.y"
  1457. { yyval.nodeval = yyvsp[0].nodeval; ;
  1458.     break;}
  1459. case 40:
  1460. #line 347 "awk.y"
  1461. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1462.     break;}
  1463. case 41:
  1464. #line 349 "awk.y"
  1465. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1466.     break;}
  1467. case 42:
  1468. #line 351 "awk.y"
  1469. {
  1470.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval,1),
  1471.             (NODE *)NULL, variable(yyvsp[-3].sval,1)));
  1472.       ;
  1473.     break;}
  1474. case 43:
  1475. #line 356 "awk.y"
  1476. {
  1477.         yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
  1478.       ;
  1479.     break;}
  1480. case 44:
  1481. #line 360 "awk.y"
  1482. {
  1483.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
  1484.             (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
  1485.       ;
  1486.     break;}
  1487. case 45:
  1488. #line 366 "awk.y"
  1489. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1490.     break;}
  1491. case 46:
  1492. #line 369 "awk.y"
  1493. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1494.     break;}
  1495. case 47:
  1496. #line 371 "awk.y"
  1497. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1498.     break;}
  1499. case 48:
  1500. #line 373 "awk.y"
  1501. {
  1502.             if (yyvsp[-3].nodetypeval == Node_K_print && yyvsp[-2].nodeval == NULL)
  1503.                 yyvsp[-2].nodeval = node(node(make_number(0.0),
  1504.                            Node_field_spec,
  1505.                            (NODE *) NULL),
  1506.                       Node_expression_list,
  1507.                       (NODE *) NULL);
  1508.  
  1509.             yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval);
  1510.         ;
  1511.     break;}
  1512. case 49:
  1513. #line 384 "awk.y"
  1514. { NODETYPE type;
  1515.  
  1516.           if (! io_allowed) yyerror("next used in BEGIN or END action");
  1517.           if (yyvsp[-1].nodeval && yyvsp[-1].nodeval == lookup("file")) {
  1518.             if (do_lint)
  1519.                 warning("`next file' is a gawk extension");
  1520.             else if (strict || do_posix)
  1521.                 yyerror("`next file' is a gawk extension");
  1522.             type = Node_K_nextfile;
  1523.           } else type = Node_K_next;
  1524.           yyval.nodeval = node ((NODE *)NULL, type, (NODE *)NULL);
  1525.         ;
  1526.     break;}
  1527. case 50:
  1528. #line 397 "awk.y"
  1529. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1530.     break;}
  1531. case 51:
  1532. #line 399 "awk.y"
  1533. { if (! can_return) yyerror("return used outside function context"); ;
  1534.     break;}
  1535. case 52:
  1536. #line 401 "awk.y"
  1537. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1538.     break;}
  1539. case 53:
  1540. #line 403 "awk.y"
  1541. { yyval.nodeval = node (variable(yyvsp[-4].sval,1), Node_K_delete, yyvsp[-2].nodeval); ;
  1542.     break;}
  1543. case 54:
  1544. #line 405 "awk.y"
  1545. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1546.     break;}
  1547. case 55:
  1548. #line 410 "awk.y"
  1549. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1550.     break;}
  1551. case 56:
  1552. #line 412 "awk.y"
  1553. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1554.     break;}
  1555. case 57:
  1556. #line 417 "awk.y"
  1557. {
  1558.         yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if, 
  1559.             node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
  1560.       ;
  1561.     break;}
  1562. case 58:
  1563. #line 423 "awk.y"
  1564. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1565.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1566.     break;}
  1567. case 59:
  1568. #line 429 "awk.y"
  1569. { want_assign = 0; ;
  1570.     break;}
  1571. case 63:
  1572. #line 440 "awk.y"
  1573. { yyval.nodeval = NULL; ;
  1574.     break;}
  1575. case 64:
  1576. #line 442 "awk.y"
  1577. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
  1578.     break;}
  1579. case 65:
  1580. #line 447 "awk.y"
  1581. { yyval.nodeval = NULL; ;
  1582.     break;}
  1583. case 66:
  1584. #line 449 "awk.y"
  1585. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
  1586.     break;}
  1587. case 67:
  1588. #line 451 "awk.y"
  1589. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
  1590.     break;}
  1591. case 68:
  1592. #line 453 "awk.y"
  1593. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
  1594.     break;}
  1595. case 69:
  1596. #line 458 "awk.y"
  1597. { yyval.nodeval = NULL; ;
  1598.     break;}
  1599. case 70:
  1600. #line 460 "awk.y"
  1601. { yyval.nodeval = yyvsp[0].nodeval; ;
  1602.     break;}
  1603. case 71:
  1604. #line 465 "awk.y"
  1605. { yyval.nodeval = make_param(yyvsp[0].sval); ;
  1606.     break;}
  1607. case 72:
  1608. #line 467 "awk.y"
  1609. { yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
  1610.     break;}
  1611. case 73:
  1612. #line 469 "awk.y"
  1613. { yyval.nodeval = NULL; ;
  1614.     break;}
  1615. case 74:
  1616. #line 471 "awk.y"
  1617. { yyval.nodeval = NULL; ;
  1618.     break;}
  1619. case 75:
  1620. #line 473 "awk.y"
  1621. { yyval.nodeval = NULL; ;
  1622.     break;}
  1623. case 76:
  1624. #line 479 "awk.y"
  1625. { yyval.nodeval = NULL; ;
  1626.     break;}
  1627. case 77:
  1628. #line 481 "awk.y"
  1629. { yyval.nodeval = yyvsp[0].nodeval; ;
  1630.     break;}
  1631. case 78:
  1632. #line 486 "awk.y"
  1633. { yyval.nodeval = NULL; ;
  1634.     break;}
  1635. case 79:
  1636. #line 488 "awk.y"
  1637. { yyval.nodeval = yyvsp[0].nodeval; ;
  1638.     break;}
  1639. case 80:
  1640. #line 493 "awk.y"
  1641. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1642.     break;}
  1643. case 81:
  1644. #line 495 "awk.y"
  1645. {
  1646.         yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1647.             node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1648.         yyerrok;
  1649.       ;
  1650.     break;}
  1651. case 82:
  1652. #line 501 "awk.y"
  1653. { yyval.nodeval = NULL; ;
  1654.     break;}
  1655. case 83:
  1656. #line 503 "awk.y"
  1657. { yyval.nodeval = NULL; ;
  1658.     break;}
  1659. case 84:
  1660. #line 505 "awk.y"
  1661. { yyval.nodeval = NULL; ;
  1662.     break;}
  1663. case 85:
  1664. #line 507 "awk.y"
  1665. { yyval.nodeval = NULL; ;
  1666.     break;}
  1667. case 86:
  1668. #line 512 "awk.y"
  1669. { yyval.nodeval = NULL; ;
  1670.     break;}
  1671. case 87:
  1672. #line 514 "awk.y"
  1673. { yyval.nodeval = yyvsp[0].nodeval; ;
  1674.     break;}
  1675. case 88:
  1676. #line 519 "awk.y"
  1677. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1678.     break;}
  1679. case 89:
  1680. #line 521 "awk.y"
  1681. {
  1682.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1683.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1684.             yyerrok;
  1685.         ;
  1686.     break;}
  1687. case 90:
  1688. #line 527 "awk.y"
  1689. { yyval.nodeval = NULL; ;
  1690.     break;}
  1691. case 91:
  1692. #line 529 "awk.y"
  1693. { yyval.nodeval = NULL; ;
  1694.     break;}
  1695. case 92:
  1696. #line 531 "awk.y"
  1697. { yyval.nodeval = NULL; ;
  1698.     break;}
  1699. case 93:
  1700. #line 533 "awk.y"
  1701. { yyval.nodeval = NULL; ;
  1702.     break;}
  1703. case 94:
  1704. #line 538 "awk.y"
  1705. { want_assign = 0; ;
  1706.     break;}
  1707. case 95:
  1708. #line 540 "awk.y"
  1709. {
  1710.           if (do_lint && yyvsp[0].nodeval->type == Node_regex)
  1711.             warning("Regular expression on left of assignment.");
  1712.           yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval);
  1713.         ;
  1714.     break;}
  1715. case 96:
  1716. #line 546 "awk.y"
  1717. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-3].nodeval); ;
  1718.     break;}
  1719. case 97:
  1720. #line 548 "awk.y"
  1721. {
  1722.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1723.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1724.         ;
  1725.     break;}
  1726. case 98:
  1727. #line 553 "awk.y"
  1728. {
  1729.           if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
  1730.             warning("non-redirected getline undefined inside BEGIN or END action");
  1731.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1732.         ;
  1733.     break;}
  1734. case 99:
  1735. #line 559 "awk.y"
  1736. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1737.     break;}
  1738. case 100:
  1739. #line 561 "awk.y"
  1740. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1741.     break;}
  1742. case 101:
  1743. #line 563 "awk.y"
  1744. {
  1745.           if (yyvsp[-2].nodeval->type == Node_regex)
  1746.             warning("Regular expression on left of MATCH operator.");
  1747.           yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval));
  1748.         ;
  1749.     break;}
  1750. case 102:
  1751. #line 569 "awk.y"
  1752. { yyval.nodeval = yyvsp[0].nodeval; ;
  1753.     break;}
  1754. case 103:
  1755. #line 571 "awk.y"
  1756. {
  1757.           yyval.nodeval = node(node(make_number(0.0),
  1758.                  Node_field_spec,
  1759.                  (NODE *) NULL),
  1760.                     Node_nomatch,
  1761.                 yyvsp[0].nodeval);
  1762.         ;
  1763.     break;}
  1764. case 104:
  1765. #line 579 "awk.y"
  1766. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
  1767.     break;}
  1768. case 105:
  1769. #line 581 "awk.y"
  1770. {
  1771.           if (do_lint && yyvsp[0].nodeval->type == Node_regex)
  1772.             warning("Regular expression on left of comparison.");
  1773.           yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval);
  1774.         ;
  1775.     break;}
  1776. case 106:
  1777. #line 587 "awk.y"
  1778. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
  1779.     break;}
  1780. case 107:
  1781. #line 589 "awk.y"
  1782. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
  1783.     break;}
  1784. case 108:
  1785. #line 591 "awk.y"
  1786. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1787.     break;}
  1788. case 109:
  1789. #line 593 "awk.y"
  1790. { yyval.nodeval = yyvsp[0].nodeval; ;
  1791.     break;}
  1792. case 110:
  1793. #line 595 "awk.y"
  1794. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1795.     break;}
  1796. case 111:
  1797. #line 600 "awk.y"
  1798. { want_assign = 0; ;
  1799.     break;}
  1800. case 112:
  1801. #line 602 "awk.y"
  1802. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1803.     break;}
  1804. case 113:
  1805. #line 604 "awk.y"
  1806. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1807.     break;}
  1808. case 114:
  1809. #line 606 "awk.y"
  1810. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1811.     break;}
  1812. case 115:
  1813. #line 608 "awk.y"
  1814. {
  1815.           if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
  1816.             warning("non-redirected getline undefined inside BEGIN or END action");
  1817.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1818.         ;
  1819.     break;}
  1820. case 116:
  1821. #line 614 "awk.y"
  1822. { yyval.nodeval = yyvsp[0].nodeval; ;
  1823.     break;}
  1824. case 117:
  1825. #line 616 "awk.y"
  1826. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1827.     break;}
  1828. case 118:
  1829. #line 618 "awk.y"
  1830. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval)); ;
  1831.     break;}
  1832. case 119:
  1833. #line 620 "awk.y"
  1834. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
  1835.     break;}
  1836. case 120:
  1837. #line 622 "awk.y"
  1838. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1839.     break;}
  1840. case 121:
  1841. #line 624 "awk.y"
  1842. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1843.     break;}
  1844. case 122:
  1845. #line 626 "awk.y"
  1846. { yyval.nodeval = yyvsp[0].nodeval; ;
  1847.     break;}
  1848. case 123:
  1849. #line 628 "awk.y"
  1850. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1851.     break;}
  1852. case 126:
  1853. #line 636 "awk.y"
  1854. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1855.     break;}
  1856. case 127:
  1857. #line 638 "awk.y"
  1858. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1859.     break;}
  1860. case 128:
  1861. #line 640 "awk.y"
  1862. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1863.     break;}
  1864. case 129:
  1865. #line 642 "awk.y"
  1866. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1867.     break;}
  1868. case 130:
  1869. #line 644 "awk.y"
  1870. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1871.     break;}
  1872. case 131:
  1873. #line 646 "awk.y"
  1874. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1875.     break;}
  1876. case 132:
  1877. #line 651 "awk.y"
  1878. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1879.     break;}
  1880. case 133:
  1881. #line 653 "awk.y"
  1882. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1883.     break;}
  1884. case 134:
  1885. #line 655 "awk.y"
  1886. { 
  1887.         if (! io_allowed && strcmp(tokstart, "nextfile") == 0)
  1888.             yyerror("nextfile() is illegal in BEGIN and END");
  1889.         ;
  1890.     break;}
  1891. case 135:
  1892. #line 660 "awk.y"
  1893. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-4].lval); ;
  1894.     break;}
  1895. case 136:
  1896. #line 662 "awk.y"
  1897. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
  1898.     break;}
  1899. case 137:
  1900. #line 664 "awk.y"
  1901. {
  1902.         if (do_lint)
  1903.             warning("call of `length' without parentheses is not portable");
  1904.         yyval.nodeval = snode ((NODE *)NULL, Node_builtin, (int) yyvsp[0].lval);
  1905.         if (do_posix)
  1906.             warning( "call of `length' without parentheses is deprecated by POSIX");
  1907.       ;
  1908.     break;}
  1909. case 138:
  1910. #line 672 "awk.y"
  1911. {
  1912.         yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1913.       ;
  1914.     break;}
  1915. case 139:
  1916. #line 676 "awk.y"
  1917. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1918.     break;}
  1919. case 140:
  1920. #line 678 "awk.y"
  1921. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1922.     break;}
  1923. case 141:
  1924. #line 680 "awk.y"
  1925. { yyval.nodeval = yyvsp[0].nodeval; ;
  1926.     break;}
  1927. case 142:
  1928. #line 682 "awk.y"
  1929. { yyval.nodeval = yyvsp[0].nodeval; ;
  1930.     break;}
  1931. case 143:
  1932. #line 685 "awk.y"
  1933. { if (yyvsp[0].nodeval->type == Node_val) {
  1934.             yyvsp[0].nodeval->numbr = -(force_number(yyvsp[0].nodeval));
  1935.             yyval.nodeval = yyvsp[0].nodeval;
  1936.           } else
  1937.             yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL);
  1938.         ;
  1939.     break;}
  1940. case 144:
  1941. #line 692 "awk.y"
  1942. { yyval.nodeval = yyvsp[0].nodeval; ;
  1943.     break;}
  1944. case 145:
  1945. #line 697 "awk.y"
  1946. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1947.     break;}
  1948. case 146:
  1949. #line 699 "awk.y"
  1950. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1951.     break;}
  1952. case 148:
  1953. #line 705 "awk.y"
  1954. { yyval.nodeval = NULL; ;
  1955.     break;}
  1956. case 149:
  1957. #line 707 "awk.y"
  1958. { yyval.nodeval = yyvsp[0].nodeval; ;
  1959.     break;}
  1960. case 150:
  1961. #line 712 "awk.y"
  1962. { yyval.nodeval = variable(yyvsp[0].sval,1); ;
  1963.     break;}
  1964. case 151:
  1965. #line 714 "awk.y"
  1966. {
  1967.         if (yyvsp[-1].nodeval->rnode == NULL) {
  1968.             yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval->lnode);
  1969.             freenode(yyvsp[-1].nodeval);
  1970.         } else
  1971.             yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval);
  1972.         ;
  1973.     break;}
  1974. case 152:
  1975. #line 722 "awk.y"
  1976. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1977.     break;}
  1978. case 153:
  1979. #line 724 "awk.y"
  1980. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1981.     break;}
  1982. case 155:
  1983. #line 732 "awk.y"
  1984. { yyerrok; ;
  1985.     break;}
  1986. case 156:
  1987. #line 736 "awk.y"
  1988. { yyerrok; ;
  1989.     break;}
  1990. case 159:
  1991. #line 745 "awk.y"
  1992. { yyerrok; want_assign = 0; ;
  1993.     break;}
  1994. case 160:
  1995. #line 748 "awk.y"
  1996. { yyerrok; ;
  1997.     break;}
  1998. }
  1999.    /* the action file gets copied in in place of this dollarsign */
  2000. #line 440 "bison.simple"
  2001.  
  2002.   yyvsp -= yylen;
  2003.   yyssp -= yylen;
  2004. #ifdef YYLSP_NEEDED
  2005.   yylsp -= yylen;
  2006. #endif
  2007.  
  2008. #if YYDEBUG != 0
  2009.   if (yydebug)
  2010.     {
  2011.       short *ssp1 = yyss - 1;
  2012.       fprintf (stderr, "state stack now");
  2013.       while (ssp1 != yyssp)
  2014.     fprintf (stderr, " %d", *++ssp1);
  2015.       fprintf (stderr, "\n");
  2016.     }
  2017. #endif
  2018.  
  2019.   *++yyvsp = yyval;
  2020.  
  2021. #ifdef YYLSP_NEEDED
  2022.   yylsp++;
  2023.   if (yylen == 0)
  2024.     {
  2025.       yylsp->first_line = yylloc.first_line;
  2026.       yylsp->first_column = yylloc.first_column;
  2027.       yylsp->last_line = (yylsp-1)->last_line;
  2028.       yylsp->last_column = (yylsp-1)->last_column;
  2029.       yylsp->text = 0;
  2030.     }
  2031.   else
  2032.     {
  2033.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  2034.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  2035.     }
  2036. #endif
  2037.  
  2038.   /* Now "shift" the result of the reduction.
  2039.      Determine what state that goes to,
  2040.      based on the state we popped back to
  2041.      and the rule number reduced by.  */
  2042.  
  2043.   yyn = yyr1[yyn];
  2044.  
  2045.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  2046.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  2047.     yystate = yytable[yystate];
  2048.   else
  2049.     yystate = yydefgoto[yyn - YYNTBASE];
  2050.  
  2051.   goto yynewstate;
  2052.  
  2053. yyerrlab:   /* here on detecting error */
  2054.  
  2055.   if (! yyerrstatus)
  2056.     /* If not already recovering from an error, report this error.  */
  2057.     {
  2058.       ++yynerrs;
  2059.  
  2060. #ifdef YYERROR_VERBOSE
  2061.       yyn = yypact[yystate];
  2062.  
  2063.       if (yyn > YYFLAG && yyn < YYLAST)
  2064.     {
  2065.       int size = 0;
  2066.       char *msg;
  2067.       int x, count;
  2068.  
  2069.       count = 0;
  2070.       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2071.         if (yycheck[x + yyn] == x)
  2072.           size += strlen(yytname[x]) + 15, count++;
  2073.       msg = (char *) xmalloc(size + 15);
  2074.       strcpy(msg, "parse error");
  2075.  
  2076.       if (count < 5)
  2077.         {
  2078.           count = 0;
  2079.           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2080.         if (yycheck[x + yyn] == x)
  2081.           {
  2082.             strcat(msg, count == 0 ? ", expecting `" : " or `");
  2083.             strcat(msg, yytname[x]);
  2084.             strcat(msg, "'");
  2085.             count++;
  2086.           }
  2087.         }
  2088.       yyerror(msg);
  2089.       free(msg);
  2090.     }
  2091.       else
  2092. #endif /* YYERROR_VERBOSE */
  2093.     yyerror("parse error");
  2094.     }
  2095.  
  2096. yyerrlab1:   /* here on error raised explicitly by an action */
  2097.  
  2098.   if (yyerrstatus == 3)
  2099.     {
  2100.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  2101.  
  2102.       /* return failure if at end of input */
  2103.       if (yychar == YYEOF)
  2104.     YYABORT;
  2105.  
  2106. #if YYDEBUG != 0
  2107.       if (yydebug)
  2108.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  2109. #endif
  2110.  
  2111.       yychar = YYEMPTY;
  2112.     }
  2113.  
  2114.   /* Else will try to reuse lookahead token
  2115.      after shifting the error token.  */
  2116.  
  2117.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  2118.  
  2119.   goto yyerrhandle;
  2120.  
  2121. yyerrdefault:  /* current state does not do anything special for the error token. */
  2122.  
  2123. #if 0
  2124.   /* This is wrong; only states that explicitly want error tokens
  2125.      should shift them.  */
  2126.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  2127.   if (yyn) goto yydefault;
  2128. #endif
  2129.  
  2130. yyerrpop:   /* pop the current state because it cannot handle the error token */
  2131.  
  2132.   if (yyssp == yyss) YYABORT;
  2133.   yyvsp--;
  2134.   yystate = *--yyssp;
  2135. #ifdef YYLSP_NEEDED
  2136.   yylsp--;
  2137. #endif
  2138.  
  2139. #if YYDEBUG != 0
  2140.   if (yydebug)
  2141.     {
  2142.       short *ssp1 = yyss - 1;
  2143.       fprintf (stderr, "Error: state stack now");
  2144.       while (ssp1 != yyssp)
  2145.     fprintf (stderr, " %d", *++ssp1);
  2146.       fprintf (stderr, "\n");
  2147.     }
  2148. #endif
  2149.  
  2150. yyerrhandle:
  2151.  
  2152.   yyn = yypact[yystate];
  2153.   if (yyn == YYFLAG)
  2154.     goto yyerrdefault;
  2155.  
  2156.   yyn += YYTERROR;
  2157.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  2158.     goto yyerrdefault;
  2159.  
  2160.   yyn = yytable[yyn];
  2161.   if (yyn < 0)
  2162.     {
  2163.       if (yyn == YYFLAG)
  2164.     goto yyerrpop;
  2165.       yyn = -yyn;
  2166.       goto yyreduce;
  2167.     }
  2168.   else if (yyn == 0)
  2169.     goto yyerrpop;
  2170.  
  2171.   if (yyn == YYFINAL)
  2172.     YYACCEPT;
  2173.  
  2174. #if YYDEBUG != 0
  2175.   if (yydebug)
  2176.     fprintf(stderr, "Shifting error token, ");
  2177. #endif
  2178.  
  2179.   *++yyvsp = yylval;
  2180. #ifdef YYLSP_NEEDED
  2181.   *++yylsp = yylloc;
  2182. #endif
  2183.  
  2184.   yystate = yyn;
  2185.   goto yynewstate;
  2186. }
  2187. #define _INTSIZEOF(n)     ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )
  2188.  
  2189. #define va_dcl va_list va_alist;
  2190. #define va_start(ap) ap = (va_list)&va_alist
  2191. #define va_arg(ap,t)    ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )
  2192. #define va_end(ap) ap = (va_list)0
  2193.  
  2194. #line 751 "awk.y"
  2195.  
  2196.  
  2197. struct token {
  2198.     char *operator;        /* text to match */
  2199.     NODETYPE value;        /* node type */
  2200.     int class;        /* lexical class */
  2201.     unsigned flags;        /* # of args. allowed and compatability */
  2202. #    define    ARGS    0xFF    /* 0, 1, 2, 3 args allowed (any combination */
  2203. #    define    A(n)    (1<<(n))
  2204. #    define    VERSION    0xFF00    /* old awk is zero */
  2205. #    define    NOT_OLD        0x0100    /* feature not in old awk */
  2206. #    define    NOT_POSIX    0x0200    /* feature not in POSIX */
  2207. #    define    GAWKX        0x0400    /* gawk extension */
  2208.     NODE *(*ptr) ();    /* function that implements this keyword */
  2209. };
  2210.  
  2211. extern NODE
  2212.     *do_exp(),    *do_getline(),    *do_index(),    *do_length(),
  2213.     *do_sqrt(),    *do_log(),    *do_sprintf(),    *do_substr(),
  2214.     *do_split(),    *do_system(),    *do_int(),    *do_close(),
  2215.     *do_atan2(),    *do_sin(),    *do_cos(),    *do_rand(),
  2216.     *do_srand(),    *do_match(),    *do_tolower(),    *do_toupper(),
  2217.     *do_sub(),    *do_gsub(),    *do_strftime(),    *do_systime();
  2218.  
  2219. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  2220.  
  2221. static struct token tokentab[] = {
  2222. {"BEGIN",    Node_illegal,     LEX_BEGIN,    0,        0},
  2223. {"END",        Node_illegal,     LEX_END,    0,        0},
  2224. {"atan2",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2),    do_atan2},
  2225. {"break",    Node_K_break,     LEX_BREAK,    0,        0},
  2226. {"close",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_close},
  2227. {"continue",    Node_K_continue, LEX_CONTINUE,    0,        0},
  2228. {"cos",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_cos},
  2229. {"delete",    Node_K_delete,     LEX_DELETE,    NOT_OLD,    0},
  2230. {"do",        Node_K_do,     LEX_DO,    NOT_OLD,    0},
  2231. {"else",    Node_illegal,     LEX_ELSE,    0,        0},
  2232. {"exit",    Node_K_exit,     LEX_EXIT,    0,        0},
  2233. {"exp",        Node_builtin,     LEX_BUILTIN,    A(1),        do_exp},
  2234. {"for",        Node_K_for,     LEX_FOR,    0,        0},
  2235. {"func",    Node_K_function, LEX_FUNCTION,    NOT_POSIX|NOT_OLD,    0},
  2236. {"function",    Node_K_function, LEX_FUNCTION,    NOT_OLD,    0},
  2237. {"getline",    Node_K_getline,     LEX_GETLINE,    NOT_OLD,    0},
  2238. {"gsub",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2)|A(3), do_gsub},
  2239. {"if",        Node_K_if,     LEX_IF,    0,        0},
  2240. {"in",        Node_illegal,     LEX_IN,    0,        0},
  2241. {"index",    Node_builtin,     LEX_BUILTIN,    A(2),        do_index},
  2242. {"int",        Node_builtin,     LEX_BUILTIN,    A(1),        do_int},
  2243. {"length",    Node_builtin,     LEX_LENGTH,    A(0)|A(1),    do_length},
  2244. {"log",        Node_builtin,     LEX_BUILTIN,    A(1),        do_log},
  2245. {"match",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2),    do_match},
  2246. {"next",    Node_K_next,     LEX_NEXT,    0,        0},
  2247. {"print",    Node_K_print,     LEX_PRINT,    0,        0},
  2248. {"printf",    Node_K_printf,     LEX_PRINTF,    0,        0},
  2249. {"rand",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(0),    do_rand},
  2250. {"return",    Node_K_return,     LEX_RETURN,    NOT_OLD,    0},
  2251. {"sin",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_sin},
  2252. {"split",    Node_builtin,     LEX_BUILTIN,    A(2)|A(3),    do_split},
  2253. {"sprintf",    Node_builtin,     LEX_BUILTIN,    0,        do_sprintf},
  2254. {"sqrt",    Node_builtin,     LEX_BUILTIN,    A(1),        do_sqrt},
  2255. {"srand",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(0)|A(1), do_srand},
  2256. {"strftime",    Node_builtin,     LEX_BUILTIN,    GAWKX|A(1)|A(2), do_strftime},
  2257. {"sub",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2)|A(3), do_sub},
  2258. {"substr",    Node_builtin,     LEX_BUILTIN,    A(2)|A(3),    do_substr},
  2259. {"system",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_system},
  2260. {"systime",    Node_builtin,     LEX_BUILTIN,    GAWKX|A(0),    do_systime},
  2261. {"tolower",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_tolower},
  2262. {"toupper",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_toupper},
  2263. {"while",    Node_K_while,     LEX_WHILE,    0,        0},
  2264. };
  2265.  
  2266. /* VARARGS0 */
  2267. static void
  2268. yyerror(va_alist)
  2269. va_dcl
  2270. {
  2271.     va_list args;
  2272.     char *mesg;
  2273.     register char *bp, *cp;
  2274.     char *scan;
  2275.     char buf[120];
  2276.  
  2277.     errcount++;
  2278.     /* Find the current line in the input file */
  2279.     if (lexptr) {
  2280.         if (!thisline) {
  2281.             for (cp=lexeme; cp != lexptr_begin && *cp != '\n'; --cp)
  2282.                 ;
  2283.             if (*cp == '\n')
  2284.                 cp++;
  2285.             thisline = cp;
  2286.         }
  2287.         /* NL isn't guaranteed */
  2288.         bp = lexeme;
  2289.         while (bp < lexend && *bp && *bp != '\n')
  2290.             bp++;
  2291.     } else {
  2292.         thisline = "(END OF FILE)";
  2293.         bp = thisline + 13;
  2294.     }
  2295.     msg("%.*s", (int) (bp - thisline), thisline);
  2296.     bp = buf;
  2297.     cp = buf + sizeof(buf) - 24;    /* 24 more than longest msg. input */
  2298.     if (lexptr) {
  2299.         scan = thisline;
  2300.         while (bp < cp && scan < lexeme)
  2301.             if (*scan++ == '\t')
  2302.                 *bp++ = '\t';
  2303.             else
  2304.                 *bp++ = ' ';
  2305.         *bp++ = '^';
  2306.         *bp++ = ' ';
  2307.     }
  2308.     va_start(args);
  2309.     mesg = va_arg(args, char *);
  2310.     strcpy(bp, mesg);
  2311.     err("", buf, args);
  2312.     va_end(args);
  2313.     exit(2);
  2314. }
  2315.  
  2316. static char *
  2317. get_src_buf()
  2318. {
  2319.     static int samefile = 0;
  2320.     static int nextfile = 0;
  2321.     static char *buf = NULL;
  2322.     static int fd;
  2323.     int n;
  2324.     register char *scan;
  2325.     static int len = 0;
  2326.     static int did_newline = 0;
  2327. #    define    SLOP    128    /* enough space to hold most source lines */
  2328.  
  2329.     if (cmdline_src) {
  2330.         if (len == 0) {
  2331.             len = strlen(cmdline_src);
  2332.             if (len == 0)
  2333.                 cmdline_src = NULL;
  2334.             sourceline = 1;
  2335.             lexptr = lexptr_begin = cmdline_src;
  2336.             lexend = lexptr + len;
  2337.         } else if (!did_newline && *(lexptr-1) != '\n') {
  2338.             /*
  2339.              * The following goop is to ensure that the source
  2340.              * ends with a newline and that the entire current
  2341.              * line is available for error messages.
  2342.              */
  2343.             int offset;
  2344.  
  2345.             did_newline = 1;
  2346.             offset = lexptr - lexeme;
  2347.             for (scan = lexeme; scan > lexptr_begin; scan--)
  2348.                 if (*scan == '\n') {
  2349.                     scan++;
  2350.                     break;
  2351.                 }
  2352.             len = lexptr - scan;
  2353.             emalloc(buf, char *, len+1, "get_src_buf");
  2354.             memcpy(buf, scan, len);
  2355.             thisline = buf;
  2356.             lexptr = buf + len;
  2357.             *lexptr = '\n';
  2358.             lexeme = lexptr - offset;
  2359.             lexptr_begin = buf;
  2360.             lexend = lexptr + 1;
  2361.         } else
  2362.             lexeme = lexptr = lexptr_begin = NULL;
  2363.         return lexptr;
  2364.     }
  2365.     if (!samefile) {
  2366.         source = srcfiles[nextfile];
  2367.         if (source == NULL) {
  2368.             if (buf)
  2369.                 free(buf);
  2370.             return lexeme = lexptr = lexptr_begin = NULL;
  2371.         }
  2372.         fd = pathopen(source);
  2373.         if (fd == -1)
  2374.             fatal("can't open source file \"%s\" for reading (%s)",
  2375.                 source, strerror(errno));
  2376.         len = optimal_bufsize(fd);
  2377.         if (buf)
  2378.             free(buf);
  2379.         emalloc(buf, char *, len + SLOP, "get_src_buf");
  2380.         lexptr_begin = buf + SLOP;
  2381.         samefile = 1;
  2382.         sourceline = 1;
  2383.     } else {
  2384.         /*
  2385.          * Here, we retain the current source line (up to length SLOP)
  2386.          * in the beginning of the buffer that was overallocated above
  2387.          */
  2388.         int offset;
  2389.         int linelen;
  2390.  
  2391.         offset = lexptr - lexeme;
  2392.         for (scan = lexeme; scan > lexptr_begin; scan--)
  2393.             if (*scan == '\n') {
  2394.                 scan++;
  2395.                 break;
  2396.             }
  2397.         linelen = lexptr - scan;
  2398.         if (linelen > SLOP)
  2399.             len = SLOP;
  2400.         thisline = buf + SLOP - linelen;
  2401.         memcpy(thisline, scan, linelen);
  2402.         lexeme = buf + SLOP - offset;
  2403.         lexptr_begin = thisline;
  2404.     }
  2405.     n = read(fd, buf + SLOP, len);
  2406.     if (n == -1)
  2407.         fatal("can't read sourcefile \"%s\" (%s)",
  2408.             source, strerror(errno));
  2409.     if (n == 0) {
  2410.         samefile = 0;
  2411.         nextfile++;
  2412.         return get_src_buf();
  2413.     }
  2414.     lexptr = buf + SLOP;
  2415.     lexend = lexptr + n;
  2416.     return buf;
  2417. }
  2418.  
  2419. #define    tokadd(x) (*token++ = (x), token == tokend ? tokexpand() : token)
  2420.  
  2421. char *
  2422. tokexpand()
  2423. {
  2424.     static int toksize = 60;
  2425.     int tokoffset;
  2426.  
  2427.     tokoffset = token - tokstart;
  2428.     toksize *= 2;
  2429.     if (tokstart)
  2430.         erealloc(tokstart, char *, toksize, "tokexpand");
  2431.     else
  2432.         emalloc(tokstart, char *, toksize, "tokexpand");
  2433.     tokend = tokstart + toksize;
  2434.     token = tokstart + tokoffset;
  2435.     return token;
  2436. }
  2437.  
  2438. #ifdef DEBUG
  2439. char
  2440. nextc() {
  2441.     if (lexptr && lexptr < lexend)
  2442.         return *lexptr++;
  2443.     if (get_src_buf())
  2444.         return *lexptr++;
  2445.     return '\0';
  2446. }
  2447. #else
  2448. #define    nextc()    ((lexptr && lexptr < lexend) ? \
  2449.             *lexptr++ : \
  2450.             (get_src_buf() ? *lexptr++ : '\0') \
  2451.         )
  2452. #endif
  2453. #define pushback() (lexptr && lexptr > lexptr_begin ? lexptr-- : lexptr)
  2454.  
  2455. /*
  2456.  * Read the input and turn it into tokens.
  2457.  */
  2458.  
  2459. static int
  2460. yylex()
  2461. {
  2462.     register int c;
  2463.     int seen_e = 0;        /* These are for numbers */
  2464.     int seen_point = 0;
  2465.     int esc_seen;        /* for literal strings */
  2466.     int low, mid, high;
  2467.     static int did_newline = 0;
  2468.     char *tokkey;
  2469.  
  2470.     if (!nextc())
  2471.         return 0;
  2472.     pushback();
  2473.     lexeme = lexptr;
  2474.     thisline = NULL;
  2475.     if (want_regexp) {
  2476.         int in_brack = 0;
  2477.  
  2478.         want_regexp = 0;
  2479.         token = tokstart;
  2480.         while ((c = nextc()) != 0) {
  2481.             switch (c) {
  2482.             case '[':
  2483.                 in_brack = 1;
  2484.                 break;
  2485.             case ']':
  2486.                 in_brack = 0;
  2487.                 break;
  2488.             case '\\':
  2489.                 if ((c = nextc()) == '\0') {
  2490.                     yyerror("unterminated regexp ends with \\ at end of file");
  2491.                 } else if (c == '\n') {
  2492.                     sourceline++;
  2493.                     continue;
  2494.                 } else
  2495.                     tokadd('\\');
  2496.                 break;
  2497.             case '/':    /* end of the regexp */
  2498.                 if (in_brack)
  2499.                     break;
  2500.  
  2501.                 pushback();
  2502.                 tokadd('\0');
  2503.                 yylval.sval = tokstart;
  2504.                 return REGEXP;
  2505.             case '\n':
  2506.                 pushback();
  2507.                 yyerror("unterminated regexp");
  2508.             case '\0':
  2509.                 yyerror("unterminated regexp at end of file");
  2510.             }
  2511.             tokadd(c);
  2512.         }
  2513.     }
  2514. retry:
  2515.     while ((c = nextc()) == ' ' || c == '\t')
  2516.         ;
  2517.  
  2518.     lexeme = lexptr-1;
  2519.     thisline = NULL;
  2520.     token = tokstart;
  2521.     yylval.nodetypeval = Node_illegal;
  2522.  
  2523.     switch (c) {
  2524.     case 0:
  2525.         return 0;
  2526.  
  2527.     case '\n':
  2528.         sourceline++;
  2529.         return NEWLINE;
  2530.  
  2531.     case '#':        /* it's a comment */
  2532.         while ((c = nextc()) != '\n') {
  2533.             if (c == '\0')
  2534.                 return 0;
  2535.         }
  2536.         sourceline++;
  2537.         return NEWLINE;
  2538.  
  2539.     case '\\':
  2540. #ifdef RELAXED_CONTINUATION
  2541.         if (!strict) {    /* strip trailing white-space and/or comment */
  2542.             while ((c = nextc()) == ' ' || c == '\t') continue;
  2543.             if (c == '#')
  2544.                 while ((c = nextc()) != '\n') if (!c) break;
  2545.             pushback();
  2546.         }
  2547. #endif /*RELAXED_CONTINUATION*/
  2548.         if (nextc() == '\n') {
  2549.             sourceline++;
  2550.             goto retry;
  2551.         } else
  2552.             yyerror("inappropriate use of backslash");
  2553.         break;
  2554.  
  2555.     case '$':
  2556.         want_assign = 1;
  2557.         return '$';
  2558.  
  2559.     case ')':
  2560.     case ']':
  2561.     case '(':    
  2562.     case '[':
  2563.     case ';':
  2564.     case ':':
  2565.     case '?':
  2566.     case '{':
  2567.     case ',':
  2568.         return c;
  2569.  
  2570.     case '*':
  2571.         if ((c = nextc()) == '=') {
  2572.             yylval.nodetypeval = Node_assign_times;
  2573.             return ASSIGNOP;
  2574.         } else if (do_posix) {
  2575.             pushback();
  2576.             return '*';
  2577.         } else if (c == '*') {
  2578.             /* make ** and **= aliases for ^ and ^= */
  2579.             static int did_warn_op = 0, did_warn_assgn = 0;
  2580.  
  2581.             if (nextc() == '=') {
  2582.                 if (do_lint && ! did_warn_assgn) {
  2583.                     did_warn_assgn = 1;
  2584.                     warning("**= is not allowed by POSIX");
  2585.                 }
  2586.                 yylval.nodetypeval = Node_assign_exp;
  2587.                 return ASSIGNOP;
  2588.             } else {
  2589.                 pushback();
  2590.                 if (do_lint && ! did_warn_op) {
  2591.                     did_warn_op = 1;
  2592.                     warning("** is not allowed by POSIX");
  2593.                 }
  2594.                 return '^';
  2595.             }
  2596.         }
  2597.         pushback();
  2598.         return '*';
  2599.  
  2600.     case '/':
  2601.         if (want_assign) {
  2602.             if (nextc() == '=') {
  2603.                 yylval.nodetypeval = Node_assign_quotient;
  2604.                 return ASSIGNOP;
  2605.             }
  2606.             pushback();
  2607.         }
  2608.         return '/';
  2609.  
  2610.     case '%':
  2611.         if (nextc() == '=') {
  2612.             yylval.nodetypeval = Node_assign_mod;
  2613.             return ASSIGNOP;
  2614.         }
  2615.         pushback();
  2616.         return '%';
  2617.  
  2618.     case '^':
  2619.     {
  2620.         static int did_warn_op = 0, did_warn_assgn = 0;
  2621.  
  2622.         if (nextc() == '=') {
  2623.  
  2624.             if (do_lint && ! did_warn_assgn) {
  2625.                 did_warn_assgn = 1;
  2626.                 warning("operator `^=' is not supported in old awk");
  2627.             }
  2628.             yylval.nodetypeval = Node_assign_exp;
  2629.             return ASSIGNOP;
  2630.         }
  2631.         pushback();
  2632.         if (do_lint && ! did_warn_op) {
  2633.             did_warn_op = 1;
  2634.             warning("operator `^' is not supported in old awk");
  2635.         }
  2636.         return '^';
  2637.     }
  2638.  
  2639.     case '+':
  2640.         if ((c = nextc()) == '=') {
  2641.             yylval.nodetypeval = Node_assign_plus;
  2642.             return ASSIGNOP;
  2643.         }
  2644.         if (c == '+')
  2645.             return INCREMENT;
  2646.         pushback();
  2647.         return '+';
  2648.  
  2649.     case '!':
  2650.         if ((c = nextc()) == '=') {
  2651.             yylval.nodetypeval = Node_notequal;
  2652.             return RELOP;
  2653.         }
  2654.         if (c == '~') {
  2655.             yylval.nodetypeval = Node_nomatch;
  2656.             want_assign = 0;
  2657.             return MATCHOP;
  2658.         }
  2659.         pushback();
  2660.         return '!';
  2661.  
  2662.     case '<':
  2663.         if (nextc() == '=') {
  2664.             yylval.nodetypeval = Node_leq;
  2665.             return RELOP;
  2666.         }
  2667.         yylval.nodetypeval = Node_less;
  2668.         pushback();
  2669.         return '<';
  2670.  
  2671.     case '=':
  2672.         if (nextc() == '=') {
  2673.             yylval.nodetypeval = Node_equal;
  2674.             return RELOP;
  2675.         }
  2676.         yylval.nodetypeval = Node_assign;
  2677.         pushback();
  2678.         return ASSIGNOP;
  2679.  
  2680.     case '>':
  2681.         if ((c = nextc()) == '=') {
  2682.             yylval.nodetypeval = Node_geq;
  2683.             return RELOP;
  2684.         } else if (c == '>') {
  2685.             yylval.nodetypeval = Node_redirect_append;
  2686.             return APPEND_OP;
  2687.         }
  2688.         yylval.nodetypeval = Node_greater;
  2689.         pushback();
  2690.         return '>';
  2691.  
  2692.     case '~':
  2693.         yylval.nodetypeval = Node_match;
  2694.         want_assign = 0;
  2695.         return MATCHOP;
  2696.  
  2697.     case '}':
  2698.         /*
  2699.          * Added did newline stuff.  Easier than
  2700.          * hacking the grammar
  2701.          */
  2702.         if (did_newline) {
  2703.             did_newline = 0;
  2704.             return c;
  2705.         }
  2706.         did_newline++;
  2707.         --lexptr;    /* pick up } next time */
  2708.         return NEWLINE;
  2709.  
  2710.     case '"':
  2711.         esc_seen = 0;
  2712.         while ((c = nextc()) != '"') {
  2713.             if (c == '\n') {
  2714.                 pushback();
  2715.                 yyerror("unterminated string");
  2716.             }
  2717.             if (c == '\\') {
  2718.                 c = nextc();
  2719.                 if (c == '\n') {
  2720.                     sourceline++;
  2721.                     continue;
  2722.                 }
  2723.                 esc_seen = 1;
  2724.                 tokadd('\\');
  2725.             }
  2726.             if (c == '\0') {
  2727.                 pushback();
  2728.                 yyerror("unterminated string");
  2729.             }
  2730.             tokadd(c);
  2731.         }
  2732.         yylval.nodeval = make_str_node(tokstart,
  2733.                     token - tokstart, esc_seen ? SCAN : 0);
  2734.         yylval.nodeval->flags |= PERM;
  2735.         return YSTRING;
  2736.  
  2737.     case '-':
  2738.         if ((c = nextc()) == '=') {
  2739.             yylval.nodetypeval = Node_assign_minus;
  2740.             return ASSIGNOP;
  2741.         }
  2742.         if (c == '-')
  2743.             return DECREMENT;
  2744.         pushback();
  2745.         return '-';
  2746.  
  2747.     case '.':
  2748.         c = nextc();
  2749.         pushback();
  2750.         if (!isdigit(c))
  2751.             return '.';
  2752.         else
  2753.             c = '.';    /* FALL THROUGH */
  2754.     case '0':
  2755.     case '1':
  2756.     case '2':
  2757.     case '3':
  2758.     case '4':
  2759.     case '5':
  2760.     case '6':
  2761.     case '7':
  2762.     case '8':
  2763.     case '9':
  2764.         /* It's a number */
  2765.         for (;;) {
  2766.             int gotnumber = 0;
  2767.  
  2768.             tokadd(c);
  2769.             switch (c) {
  2770.             case '.':
  2771.                 if (seen_point) {
  2772.                     gotnumber++;
  2773.                     break;
  2774.                 }
  2775.                 ++seen_point;
  2776.                 break;
  2777.             case 'e':
  2778.             case 'E':
  2779.                 if (seen_e) {
  2780.                     gotnumber++;
  2781.                     break;
  2782.                 }
  2783.                 ++seen_e;
  2784.                 if ((c = nextc()) == '-' || c == '+')
  2785.                     tokadd(c);
  2786.                 else
  2787.                     pushback();
  2788.                 break;
  2789.             case '0':
  2790.             case '1':
  2791.             case '2':
  2792.             case '3':
  2793.             case '4':
  2794.             case '5':
  2795.             case '6':
  2796.             case '7':
  2797.             case '8':
  2798.             case '9':
  2799.                 break;
  2800.             default:
  2801.                 gotnumber++;
  2802.             }
  2803.             if (gotnumber)
  2804.                 break;
  2805.             c = nextc();
  2806.         }
  2807.         pushback();
  2808.         yylval.nodeval = make_number(atof(tokstart));
  2809.         yylval.nodeval->flags |= PERM;
  2810.         return YNUMBER;
  2811.  
  2812.     case '&':
  2813.         if ((c = nextc()) == '&') {
  2814.             yylval.nodetypeval = Node_and;
  2815.             for (;;) {
  2816.                 c = nextc();
  2817.                 if (c == '\0')
  2818.                     break;
  2819.                 if (c == '#') {
  2820.                     while ((c = nextc()) != '\n' && c != '\0')
  2821.                         ;
  2822.                     if (c == '\0')
  2823.                         break;
  2824.                 }
  2825.                 if (c == '\n')
  2826.                     sourceline++;
  2827.                 if (! isspace(c)) {
  2828.                     pushback();
  2829.                     break;
  2830.                 }
  2831.             }
  2832.             want_assign = 0;
  2833.             return LEX_AND;
  2834.         }
  2835.         pushback();
  2836.         return '&';
  2837.  
  2838.     case '|':
  2839.         if ((c = nextc()) == '|') {
  2840.             yylval.nodetypeval = Node_or;
  2841.             for (;;) {
  2842.                 c = nextc();
  2843.                 if (c == '\0')
  2844.                     break;
  2845.                 if (c == '#') {
  2846.                     while ((c = nextc()) != '\n' && c != '\0')
  2847.                         ;
  2848.                     if (c == '\0')
  2849.                         break;
  2850.                 }
  2851.                 if (c == '\n')
  2852.                     sourceline++;
  2853.                 if (! isspace(c)) {
  2854.                     pushback();
  2855.                     break;
  2856.                 }
  2857.             }
  2858.             want_assign = 0;
  2859.             return LEX_OR;
  2860.         }
  2861.         pushback();
  2862.         return '|';
  2863.     }
  2864.  
  2865.     if (c != '_' && ! isalpha(c))
  2866.         yyerror("Invalid char '%c' in expression\n", c);
  2867.  
  2868.     /* it's some type of name-type-thing.  Find its length */
  2869.     token = tokstart;
  2870.     while (is_identchar(c)) {
  2871.         tokadd(c);
  2872.         c = nextc();
  2873.     }
  2874.     tokadd('\0');
  2875.     emalloc(tokkey, char *, token - tokstart, "yylex");
  2876.     memcpy(tokkey, tokstart, token - tokstart);
  2877.     pushback();
  2878.  
  2879.     /* See if it is a special token.  */
  2880.     low = 0;
  2881.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2882.     while (low <= high) {
  2883.         int i/* , c */;
  2884.  
  2885.         mid = (low + high) / 2;
  2886.         c = *tokstart - tokentab[mid].operator[0];
  2887.         i = c ? c : strcmp (tokstart, tokentab[mid].operator);
  2888.  
  2889.         if (i < 0) {        /* token < mid */
  2890.             high = mid - 1;
  2891.         } else if (i > 0) {    /* token > mid */
  2892.             low = mid + 1;
  2893.         } else {
  2894.             if (do_lint) {
  2895.                 if (tokentab[mid].flags & GAWKX)
  2896.                     warning("%s() is a gawk extension",
  2897.                         tokentab[mid].operator);
  2898.                 if (tokentab[mid].flags & NOT_POSIX)
  2899.                     warning("POSIX does not allow %s",
  2900.                         tokentab[mid].operator);
  2901.                 if (tokentab[mid].flags & NOT_OLD)
  2902.                     warning("%s is not supported in old awk",
  2903.                         tokentab[mid].operator);
  2904.             }
  2905.             if ((strict && (tokentab[mid].flags & GAWKX))
  2906.                 || (do_posix && (tokentab[mid].flags & NOT_POSIX)))
  2907.                 break;
  2908.             if (tokentab[mid].class == LEX_BUILTIN
  2909.                 || tokentab[mid].class == LEX_LENGTH
  2910.                )
  2911.                 yylval.lval = mid;
  2912.             else
  2913.                 yylval.nodetypeval = tokentab[mid].value;
  2914.  
  2915.             return tokentab[mid].class;
  2916.         }
  2917.     }
  2918.  
  2919.     yylval.sval = tokkey;
  2920.     if (*lexptr == '(')
  2921.         return FUNC_CALL;
  2922.     else {
  2923.         want_assign = 1;
  2924.         return NAME;
  2925.     }
  2926. }
  2927.  
  2928. static NODE *
  2929. node_common(op)
  2930. NODETYPE op;
  2931. {
  2932.     register NODE *r;
  2933.  
  2934.     getnode(r);
  2935.     r->type = op;
  2936.     r->flags = MALLOC;
  2937.     /* if lookahead is NL, lineno is 1 too high */
  2938.     if (lexeme && *lexeme == '\n')
  2939.         r->source_line = sourceline - 1;
  2940.     else
  2941.         r->source_line = sourceline;
  2942.     r->source_file = source;
  2943.     return r;
  2944. }
  2945.  
  2946. /*
  2947.  * This allocates a node with defined lnode and rnode. 
  2948.  */
  2949. NODE *
  2950. node(left, op, right)
  2951. NODE *left, *right;
  2952. NODETYPE op;
  2953. {
  2954.     register NODE *r;
  2955.  
  2956.     r = node_common(op);
  2957.     r->lnode = left;
  2958.     r->rnode = right;
  2959.     return r;
  2960. }
  2961.  
  2962. /*
  2963.  * This allocates a node with defined subnode and proc for builtin functions
  2964.  * Checks for arg. count and supplies defaults where possible.
  2965.  */
  2966. static NODE *
  2967. snode(subn, op, idx)
  2968. NODETYPE op;
  2969. int idx;
  2970. NODE *subn;
  2971. {
  2972.     register NODE *r;
  2973.     register NODE *n;
  2974.     int nexp = 0;
  2975.     int args_allowed;
  2976.  
  2977.     r = node_common(op);
  2978.  
  2979.     /* traverse expression list to see how many args. given */
  2980.     for (n= subn; n; n= n->rnode) {
  2981.         nexp++;
  2982.         if (nexp > 3)
  2983.             break;
  2984.     }
  2985.  
  2986.     /* check against how many args. are allowed for this builtin */
  2987.     args_allowed = tokentab[idx].flags & ARGS;
  2988.     if (args_allowed && !(args_allowed & A(nexp)))
  2989.         fatal("%s() cannot have %d argument%c",
  2990.             tokentab[idx].operator, nexp, nexp == 1 ? ' ' : 's');
  2991.  
  2992.     r->proc = tokentab[idx].ptr;
  2993.  
  2994.     /* special case processing for a few builtins */
  2995.     if (nexp == 0 && r->proc == do_length) {
  2996.         subn = node(node(make_number(0.0),Node_field_spec,(NODE *)NULL),
  2997.                     Node_expression_list,
  2998.                 (NODE *) NULL);
  2999.     } else if (r->proc == do_match) {
  3000.         if (subn->rnode->lnode->type != Node_regex)
  3001.             subn->rnode->lnode = mk_rexp(subn->rnode->lnode);
  3002.     } else if (r->proc == do_sub || r->proc == do_gsub) {
  3003.         if (subn->lnode->type != Node_regex)
  3004.             subn->lnode = mk_rexp(subn->lnode);
  3005.         if (nexp == 2)
  3006.             append_right(subn, node(node(make_number(0.0),
  3007.                              Node_field_spec,
  3008.                              (NODE *) NULL),
  3009.                             Node_expression_list,
  3010.                         (NODE *) NULL));
  3011.         else if (do_lint && subn->rnode->rnode->lnode->type == Node_val)
  3012.             warning("string literal as last arg of substitute");
  3013.     } else if (r->proc == do_split) {
  3014.         if (nexp == 2)
  3015.             append_right(subn,
  3016.                 node(FS_node, Node_expression_list, (NODE *) NULL));
  3017.         n = subn->rnode->rnode->lnode;
  3018.         if (n->type != Node_regex)
  3019.             subn->rnode->rnode->lnode = mk_rexp(n);
  3020.         if (nexp == 2)
  3021.             subn->rnode->rnode->lnode->re_flags |= FS_DFLT;
  3022.     }
  3023.  
  3024.     r->subnode = subn;
  3025.     return r;
  3026. }
  3027.  
  3028. /*
  3029.  * This allocates a Node_line_range node with defined condpair and
  3030.  * zeroes the trigger word to avoid the temptation of assuming that calling
  3031.  * 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'. 
  3032.  */
  3033. /* Otherwise like node() */
  3034. static NODE *
  3035. mkrangenode(cpair)
  3036. NODE *cpair;
  3037. {
  3038.     register NODE *r;
  3039.  
  3040.     getnode(r);
  3041.     r->type = Node_line_range;
  3042.     r->condpair = cpair;
  3043.     r->triggered = 0;
  3044.     return r;
  3045. }
  3046.  
  3047. /* Build a for loop */
  3048. static NODE *
  3049. make_for_loop(init, cond, incr)
  3050. NODE *init, *cond, *incr;
  3051. {
  3052.     register FOR_LOOP_HEADER *r;
  3053.     NODE *n;
  3054.  
  3055.     emalloc(r, FOR_LOOP_HEADER *, sizeof(FOR_LOOP_HEADER), "make_for_loop");
  3056.     getnode(n);
  3057.     n->type = Node_illegal;
  3058.     r->init = init;
  3059.     r->cond = cond;
  3060.     r->incr = incr;
  3061.     n->sub.nodep.r.hd = r;
  3062.     return n;
  3063. }
  3064.  
  3065. /*
  3066.  * Install a name in the symbol table, even if it is already there.
  3067.  * Caller must check against redefinition if that is desired. 
  3068.  */
  3069. NODE *
  3070. install(name, value)
  3071. char *name;
  3072. NODE *value;
  3073. {
  3074.     register NODE *hp;
  3075.     register int len, bucket;
  3076.  
  3077.     len = strlen(name);
  3078.     bucket = hash(name, len);
  3079.     getnode(hp);
  3080.     hp->type = Node_hashnode;
  3081.     hp->hnext = variables[bucket];
  3082.     variables[bucket] = hp;
  3083.     hp->hlength = len;
  3084.     hp->hvalue = value;
  3085.     hp->hname = name;
  3086.     return hp->hvalue;
  3087. }
  3088.  
  3089. /* find the most recent hash node for name installed by install */
  3090. NODE *
  3091. lookup(name)
  3092. char *name;
  3093. {
  3094.     register NODE *bucket;
  3095.     register int len;
  3096.  
  3097.     len = strlen(name);
  3098.     bucket = variables[hash(name, len)];
  3099.     while (bucket) {
  3100.         if (bucket->hlength == len && STREQN(bucket->hname, name, len))
  3101.             return bucket->hvalue;
  3102.         bucket = bucket->hnext;
  3103.     }
  3104.     return NULL;
  3105. }
  3106.  
  3107. /*
  3108.  * Add new to the rightmost branch of LIST.  This uses n^2 time, so we make
  3109.  * a simple attempt at optimizing it.
  3110.  */
  3111. static NODE *
  3112. append_right(list, new)
  3113. NODE *list, *new;
  3114. {
  3115.     register NODE *oldlist;
  3116.     static NODE *savefront = NULL, *savetail = NULL;
  3117.  
  3118.     oldlist = list;
  3119.     if (savefront == oldlist) {
  3120.         savetail = savetail->rnode = new;
  3121.         return oldlist;
  3122.     } else
  3123.         savefront = oldlist;
  3124.     while (list->rnode != NULL)
  3125.         list = list->rnode;
  3126.     savetail = list->rnode = new;
  3127.     return oldlist;
  3128. }
  3129.  
  3130. /*
  3131.  * check if name is already installed;  if so, it had better have Null value,
  3132.  * in which case def is added as the value. Otherwise, install name with def
  3133.  * as value. 
  3134.  */
  3135. static void
  3136. func_install(params, def)
  3137. NODE *params;
  3138. NODE *def;
  3139. {
  3140.     NODE *r;
  3141.  
  3142.     pop_params(params->rnode);
  3143.     pop_var(params, 0);
  3144.     r = lookup(params->param);
  3145.     if (r != NULL) {
  3146.         fatal("function name `%s' previously defined", params->param);
  3147.     } else
  3148.         (void) install(params->param, node(params, Node_func, def));
  3149. }
  3150.  
  3151. static void
  3152. pop_var(np, freeit)
  3153. NODE *np;
  3154. int freeit;
  3155. {
  3156.     register NODE *bucket, **save;
  3157.     register int len;
  3158.     char *name;
  3159.  
  3160.     name = np->param;
  3161.     len = strlen(name);
  3162.     save = &(variables[hash(name, len)]);
  3163.     for (bucket = *save; bucket; bucket = bucket->hnext) {
  3164.         if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
  3165.             *save = bucket->hnext;
  3166.             freenode(bucket);
  3167.             if (freeit)
  3168.                 free(np->param);
  3169.             return;
  3170.         }
  3171.         save = &(bucket->hnext);
  3172.     }
  3173. }
  3174.  
  3175. static void
  3176. pop_params(params)
  3177. NODE *params;
  3178. {
  3179.     register NODE *np;
  3180.  
  3181.     for (np = params; np != NULL; np = np->rnode)
  3182.         pop_var(np, 1);
  3183. }
  3184.  
  3185. static NODE *
  3186. make_param(name)
  3187. char *name;
  3188. {
  3189.     NODE *r;
  3190.  
  3191.     getnode(r);
  3192.     r->type = Node_param_list;
  3193.     r->rnode = NULL;
  3194.     r->param = name;
  3195.     r->param_cnt = param_counter++;
  3196.     return (install(name, r));
  3197. }
  3198.  
  3199. /* Name points to a variable name.  Make sure its in the symbol table */
  3200. NODE *
  3201. variable(name, can_free)
  3202. char *name;
  3203. int can_free;
  3204. {
  3205.     register NODE *r;
  3206.     static int env_loaded = 0;
  3207.  
  3208.     if (!env_loaded && STREQ(name, "ENVIRON")) {
  3209.         load_environ();
  3210.         env_loaded = 1;
  3211.     }
  3212.     if ((r = lookup(name)) == NULL)
  3213.         r = install(name, node(Nnull_string, Node_var, (NODE *) NULL));
  3214.     else if (can_free)
  3215.         free(name);
  3216.     return r;
  3217. }
  3218.  
  3219. static NODE *
  3220. mk_rexp(exp)
  3221. NODE *exp;
  3222. {
  3223.     if (exp->type == Node_regex)
  3224.         return exp;
  3225.     else {
  3226.         NODE *n;
  3227.  
  3228.         getnode(n);
  3229.         n->type = Node_regex;
  3230.         n->re_exp = exp;
  3231.         n->re_text = NULL;
  3232.         n->re_reg = NULL;
  3233.         n->re_flags = 0;
  3234.         n->re_cnt = 1;
  3235.         return n;
  3236.     }
  3237. }
  3238.